DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DDDDDDDD 688888888 GGGGGGGG LL III! BBBBB888 
DODDDDDD 688888888 GGGGGGGG LL T1111 BBBBBB88 
dD DD 868 4 GG LL II 8B 88 
dD DD 6B GG LL Ht 88 BB 
dD DD 88 8B GG LL i 8B 88 
DD 88 BB 6G LL I] 8B 8B 
DD 88888888 GG LL I] BBB8B888 
DD DD 88888888 +4 LL I! BBBBB888 
Db DD 6B BB GG LL II 8B 88 
dD DD 6B BB GG G6GGGG LL I! BB 8B 
DD DD 6B BB GG LL I! BB 8B eee 
dD DD 88 88 GG GG LL II 8B BB coe 
DDDDDDDD 88888888 GGGGGG LLELLLLLLLL T1111 BBBBB8888 cece 
DDDDDDDD 68868888 GGGGGG LLELLLLLLLL III! BBBB8 eee 
LL IIIT! SSSSSSSS 
LL HI] SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] ss 
LL I] He 
LL I] s 
LELLLLLLLL T1111] SSSSSSSS 
CLLLLLLLLL HI] SSSSSSSS 
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DBGLIB =~ COMMON DEFINITION FILE FOR THE VAX DEBUGGER 


; Version: *v04-000'° 


. 
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® 
‘e@ + 
ie COPYRIGHT («) 1978 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPR T CORPORATION, MAYNARD, MASSACHUSETTS. * 
is AL § RES RVED™ ‘ 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERR § OF Such LICEN NSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY ot HER : 
ie COPIES THEREOF MAY T be PROVIDED OR OTHERWISE MADE AVAILABLE T * 
ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE Tk. HEREBY * 
is TRANSFERRED. ‘ 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
is CORPORAT 1DN. : 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 
i 
i tenestedhdetidiiatiaenchiaten ietiaineae i eenetttiaidndi ites teil aoenies heh deemed ’ 


i WRITTEN BY 
‘ Bert Beander June, 1980. 


i MODIFIED BY 


Sid Maxwell 


i MODULE FUNCTION: 

: This REQUIRE file Ceototns all Literal, macro, and data structure defin- 
itions used by new Bliss modules in the Debugger. Old Bliss modules do 
not use this file for historical reasons. 
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General Debugger Definitions ..... 
Data Structure Definition and Access 

Liss-32 Language Extensions ... 

eree Reperting ccesvesescs 

BeSUS Putput Recres eee eee 

Miscellaneous Literals .....-s. 
Address Descriptor Definitions ..... 
Address Expression Descriptor Definitions 
Command Execution Tree Definitions ... 
Command Input Stream Definitions .... 
Centres Fiags secvuveseausseutsbeaen 


Define Symbol Table Definitions ..... 


i 


TABLE OF CONTE 


Sep-1 
-3ep- 
~Sep-1 


NT 


Sever Stetus Codes wcecsteveneeeseses 


Event Table Entry Definitions 
Event Table En 


try for Break or Trace Point. 
Event Table Entry for Threaded Code Event Poin 


Event Table Entry for /READ, /WRITE, ert 


Event Table Entry for /CALL, /BRANCH 
Event Table Entry for STEP 
Event stepping Descriptor 

Event DO List Descriptor . 
Event WHEN Descriptor .. 
Event Page Descriptor .. 


Free Memory Management ..... -. 
Format of a Free Memory Block ‘ » 
Format of an Allocated Memory Block 
Overall Structure of Memory Pool .. 
Temporary Memory Blocks ee ee D 


Image File Header Definitions ..... 
Image Header Symbol Table Descriptor 
Image File Debug Module Table (DMT) 


Least Recently Used Module Table Definitions 


Lexical Scanner Character Table ...... 


Lexical Token cotry sé¢ubdbeédee 
Operand Lexica "eee Entry — 
Operator Lexical Token enery — 
Terminator Lexical Token Entry . 


Linked List Node Definition ...... 
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: 109 Moved DST Entry Definitions .......e2e06- . 62 
; 138 Number Scanner State Table . 1... eee ee eee ee eee 66 3 
s 0110 ' Operator Information Table | 
: ON Gerster tection Sable Soh ere eeeaeees ee | 
: 118 i Type Graph a . 7 o . . . € + oe . 7 . . . o 5 . . . ; } : 6 | ° 
+ 0114 Type Conversion Information T | 
: Bug 9 ee tomate Wig ot an deh tee t title Reel 
: Og } Pathname Descriptor Definitions .....5656e6e028280068 | : 
: $120 Permanent Symbol Descriptor Definitions .......+.+.. 81 | 
: Bt 0 Predeclared Identifier Entry . 2... eee eee eevee e 83 | ; 
; 0 i Primary and Value Descri | 
: ptet teetiet -« « £4 os ek ce : 
: 3 ¢ Primary and Value Descriptor Header for COBOL and PL/I . Be ‘ 
; 0126 0 i Primary Descriptor Definitions | 
: Oi oS Primary descriptor Root Node’ | > S222 lI51~« 88 | : 
: 0129 0 i ernery Descriptor Normal Sub-Node .. 1... 2422 eee 9 : 
oe go. Primary Descriptor Array Sub-Node 222222 ll. 93 | : 
: 0181 0 Primary Descriptor Record Sub-Node ......22+24 2 9 é 
: O132 0 i rimary Descriptor Variant Sub-Node .....2 2242 W ‘ 
: Bist Oo Priaery Percer Seete Table 2c ct ec tc ete ewes | ; 
: HE 8 Pring Gnberaatten Fable «cc a 644 KOR ew ee oe OS | : 
: FETA 4 Register Descriptor Definitions . 2... 2 ee 2 ww ww ww 106 | 
; Gis © i Run-Time Symbol Table (RST) Definiti | 
: giao RST Entry Common Core... en oe eee 193 | : 
: 014 0 i $4 Entry for é Module . °° . . . a oO - . oO — - . . . . 109 , 
: ores 9 2} snare fer @ Reutlen | os ss 6 & oe oe 6 6d eee TE é 
:  O1ee met entry Tor © tenicel Olde 8 ke 84 ee 8 se ee ‘ 
. 0145 8 i RST ntry for an Entry Point o ee eeenveeeees «¢ 6 8 115 | Py 
> 0146 0 ; Rey Entry for an Instruction Label .. 1... 4.2 ee = 116 | : 
: 0147 0 i RET snes or Oites Reber. «4 cae & a ew ee TTT ‘ 
; 0148 OI} RSI Entry for a bata symbol. sla | 
; Be RST Entry for a Data Type Component... . 2... . 120 | : 
: bien 8 i Rat Entry for & pate Type » 08.6 eee Kee aoe : 
. 181 0 : ast Entry for a Record Variant Set .. 2... 2 ee eo © 125 é 
i O18 +H Entry for an Invocation Number .........4.4 4 126 ‘ 
: 126 0 Entry for an Overloaded Symbol ...... 2.224 12? ‘ 
; 138 0 : Scope List Definitions o . © . i o + * . . . oe . . . . . . . 128 : 
; 0136 een Screen Display Entry Definitions .......-2 24444 + 129 : 
; 0158 0 i Screen Display Line Entry Definiti 
Pain oo Rormal D¥ptay Line Entry ene cide 

; e En iti . 

: gle | Source Display Line Entry es ssc eee. sos 2 188 
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Screen Pasteboard Entry Definitions .....6+6+020ee200 137 

Screen Window Entry Definitions ....56+6ee20e808006 139 

Source Directory Search List seer 
Source Directory Search List Header Block ...... 
Source Directory Search List Entry .....6-. 

Source File Centred Glock sic csceseeecevoevdcusese 4 

Source File ID Table ccs eseueeseeescsenecerse 

Source File Record File Address Table ......24+6+4 147 

Static Address Table (SAT) Definitions .......«+«-««« 148 

Value Descriptor Definitions ..... 562 ee ee ee eo © 150 | 

Cid Sobugger Bettatttens «ccc veces tucetvscauveseec a SR 


140 
141 
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GENERAL DEBUGGER DEFINITIONS 


The declarations in this sect ten define syabels of general utility 
throughout the Debugger. This includes widely used Literals and 
various utility macros. 


% 
a 
> 


DATA STRUCTURE DEFINITION AND ACCESS 


Here we declare all the macros used to define and acccess BLISS data 
structures. These are the names L_, so forth. 


Ww, - Wil, a 
The actual definitions are in a separate REQUIRE file, but they are 
required for the LIBRARY compilation of the present REQUIRE file. 


IBRARY ‘LIBS: STRUCDEF .L32°; 


Of cacecacseceracasecesesesecacacasesecacace 


BLISS-32 LANGUAGE EXTENSIONS 


* 
© 
+ 


Here we declare various minor extensions to the Bliss-32 Langauge. 


SOBNOARWNVASSSVE AE AU LOLS NEAR UG OD ed 


SOOOOCOCOCOOSOOCOCOOSOOCOOSOSOSOSOSO COSCO OCOSOSCOOCSCOSDOOOOOOOOCOOOOOOOCOOOOOO 


LITERAL | 
TRUE = 1, ' Define TRUE and FALSE 
FALSE = 0; ! 
‘eee | 
MACRO 
REPEAT = WHILE 1 DOZ, ! Infinite Loop 


! ZJEROCOR zeroes an area of memory. The two parameters are ADDRESS and COUNT, 
! which are the address of the area to be zeroed and the number of contiguous 
} longwords to be zeroed, respectively. 


ZEROCOR (ADDRESS, COUNT) = 
CHSFILL (0, (COUNT) * 4, CHSPTR (ADDRESS))2, 


ONEOF (XxX) (] = 
(MASK (ZREMAINING)) * (X) LSS 0%, 


OR_OP (x) £2 = 
ort, 


PMOPIPONONONUPONYRY 2 9 ee 


Soooooocoooooooo OOooococcccocccd COOOCCCOCOCOOOOCOOCOCOOCOOOO 


WN OOO "Oulu 


w 


MASK (xX) (] = 
1 * (31-X) OR_OP (REMAINING) MASK (ZREMAINING)2, 


CHSSEQUENCE (N) = 


Be Se Be Se Se Se Se Se Se Se Ge Se Fe Se Ge Se Fe Fe Ge Se Be Se Ge Se Fe Se Se Se Be Se Se Se Se Ge Se Se Ge Se Se Se Se FH Se Se Se Se Ge Ge Se Ss Se Ge FH Se St Oe we 


ww 
oo 


Eevee m8 shut Blea ac of 


VECTOR CCHSALLOCATION (N)J%, 
CONSECUTIVE CX} = LITERAL X = ZCOUNTS; 


1Sedeo- 1984 22:59:57 vaReyy ieee 2 


ERROR REPORTING 


The tol Loving macro is wee for reporting internal DEBUG coding errors 
symbolically. The macro used as follows: 


SDBG_ERROR("MODNAME\ROUTNAME number’); 
This ext’ of the the internal DEBUG error message DBGS tng woich prints 


Dt at ee 


Win. 


the tex he macro parameter. The convention i§ that this parameter 
should lude the module name and the routine name + Sas o signet loca= 
tion so that yo A, where the ver “attts signalled can be eas ly 
ore = 7% DE developers. In add a number may be included 
text to make the text unique "ahah there 40 bere than one 
$086 Mean Savesatton in the same routine. 


MACRO me ees. ERROR (STRING) 
ita ~(D8G6$ td mate 1, UPLIT BYTE (ZASCIC STRING) 
IF ZLENGTH GT 
THEN 
ZREMAINING) 


ee 


ZELSE 
ZF1 2; 


LEAFERISS 


v4.0- 


BUG: gRc 


Soectie. REQ; 1 
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DEBUG OUTPUT MACROS 


The followi vty) are used in several places in the debugger 
to do formatted ASCII] output (SFAO). 


as emt ics 
3 


! SFAO_STG Coynt makes @ counted byte string out of an ascis string. 
! This macfo is useful to transform an FAO control string into the 

: address of such @ string, whose first byte contains the length of 
: the string in bytes. : 


$FAO_STG_COUNT (STRING) = 
OPLIT BYTE (ZCHARCOUNT (STRING), ZASCII STRING)S, 


! SFAO_TT_OUT constructs a coth to FAO with a control string, and some 
! arguments to the control string. This formatted string is then 
: output to the output device. 


$FAO_TT_OUT (CTL_STRING) = 
DBGSF AO BUT (SFAO_STG_COUNT (CTL_STRING) 
IF ZLEAGTH GTR 1 


THEN 
ZREMAINING 
Fi 


Be Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Ge Se Se Ge Se SH Se Ge Se Se Ge Se oe 
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' Object cree Soy asterete, These fees are used by the reek Ex upress ion 

! Interpre and the Command Languag e Interpreter to iden e objects 

H —— by the Address Express on Bn. reter. Some of these values also 
n ncluding the Primary, Value, and Address 


4 pear certain descriptors 


iioression descriptors. 


LITERAL 
DBGS$K_MIN_DESCR_TYPE = 120, ! Used in FROM clause of CASE 


H veI } MISCELLANEOUS LITERALS 

3.60 Ges ' 

: 595 

; Y 500 i tats section defines Literals which are used throughout the De r but 
a 0 which do not belong with any apesitte deta structures. bugge 
3 08 These four Literals are used to index into the DBGSGB_RADIX byte vector. 
3 0305 LITERAL 

3 0306 DBGSB_RADIN_ INPUT | = 0, 

; V N DBGSB_ RADIX OUT PUT = * 

+ Q308 DBGSB_RADIX-OUTPUT_OVER = 2; 

; ; 4 H Ascii character Literals 

c- ¢ i LITERAL 

3 031 DBGSK “fiBlAs = ge ' Lower case bias 
3 0314 DBGSK- TAB = ! Horizontal tab 
: 0315 DBGSK~SEMICOLON = 59, i vse 

5 ; 1 DBGSK_CAR_RETURN = \3. ' <er> 

3 031 DBGSK “LINE_ FEED = 10, ' <lf> 

,..¢ i DBGSK_ = ' Null character 
Bes peepee if 

P V a x ive 

é 0321 DBGS$K_AMPERSAND = . > "oe" 

3 ' ¢ DBGSK_AT_SIGN = 64, s *9° 

3 D DBGSK_S = 47, SF 

; 03246 DBGSK_BACKSLASH = He ; 

; 0325 DBG$K_EQ = 61, ¢ Sgt 

, @ $ DBGSK_ = 44, tee 

3 ‘ DBGS$K_DOT = $6- : <8 

3 ' DBGSK ON = 58, , 9° 

; ‘ DBGSK_UPARROW = 94, , eee 

3 ‘ 0BG “QUOTE = 39, ; oes 

: ! DBGSK~ LEFT_PARENTHESIS = 40,  @g* 

3 ‘ § DBGSK~ _RIGH T PARENTHESIS = 41, ; o}* 

© DBGSK~ put TIPLY ry is: 2 %e¢ 

3 ‘ DBGSK_P = 43, 1 4 

s 0335 dB TNUS = 4 i toe 

ce DBGSK-DIVIDE = pBGSK_SLASH, } 

; DBGSK—DBLQUOTE = 34, ;- 

; ! Define unary operators too 

; DBGS$K_UNARY_PLUS = 330, 

: DBGSK~ UNARY “MINUS = : 

a 

a 

 £ 

cay @ 


M—C COON fun 
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Be Se Se Ge Se Be Te Be Se Se Se Ge Ge Ge Ge Se Se Ge Ge Se Ge Se Ge Se FH Ss Ge Ge Ge Se Ge Se Ge Se Se Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se oe 


DBG LITERAL 
DBGSK“PRIMARY DESC 
DBG$K “VALUE DES 
DBGSK-PERM_B ¢ 
DBGSK_INSTR TION 
DBGSK"“NC_INSTRUCTION 
GSK"NC-OTHER 
DBGSK-0 R 
DBG$K-NOTYPE 
DBGSK~ EXTERNAL. DESC 
pacer WAN VALUE _DESC 
tate tai 
DBGSK_MAX_DESCR_TYPE 
Define the Radix Literals. 
LITERAL 
DBGSK DEFAULT = 1, 
DBG$K~BINAR = g. 
DBGSK~ “OCTAL. : 
DBGSK-“DECIMAL = 10, 
DBG$K—HEX = 16: 


} Define Pseudo-Symbol codes. 


LITERAL 
DBGSK_CURRENT LOC 
DBGS$K =PREDECESSOR 
+s SUCCESSOR 
ert VALUE 
DBcsK NDIRECTION 


: Token type literals. These are used by the Pathname Parser and scanners. 


LITERAL 
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nak Setestente 
ed Symbol descriptor 
Instruction 

Named constant, instruction 


< 
a 
- 


External soe — forma 
VAX stand descriptor 
Yotat Le va uve descriptor 


nhunnnnnnnnnnea 
kk tt td dt 
MO CONOUS LO 
eee eee eee sees 


field of ' 
and also in the correspon 


is an AED and 
Used in TO clause of CASE. 


= 132; 


Default source language radix 
Binary radix 

Octal radix 

Decimal radix 

Hexadecimal radix 


current location 
Previous location “*"" 
Next waive <CR> 


' 

i 

i 

i 
DBG$K_CURRENT LOC; 

“ An cilerasetes meaning of ‘’."" 

is indirection 


' Null or EOL token 
: Invalid token 
ZLINE’ token 


ee © ee &© 8 & 


inge ef Des 
rinecisten: token 


=DBG$K_TOK Wee 
=DBGSK~TOK~QNAME; 


DONO ULS WN —O 


' 
' 
‘ 
‘ 
' 
: D token 
1 
t 
' 


VAX 
VEDSSSDUALE SE 


Named aoasestits not S raesrust 
“spec ta 
Winks ? ogerese without any type 


1 Bliss 
Daud: snc onc 3586L18.REQ; 1 


S coge appears ° the cece, DHDR_TYPE 
he new primary descrt ecer 


ng p 
in the AED to tell that the SScris ptor 
not a new-style descriptor. 
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! Command verb Literals. Thes 


> 

. wses=se>Pe2.-2,', 2 seves.ereues fe presse 
wn 3 . [ vs SY | s$2. we Sue >, >w Q-3u 

SS ee en te <_cooS a o eee a 
§ ~ Vw a WN <-- u> 0” pnt ~ =! poop ergo 
= we REE eet ts rt eng eet eet ie eo Baksen 
>  e - at Py Fy Soc Zz usuius Senees = eeeees 
@ =. ah serey-Y_Y_Y_¥-¥_treieeininintegc} ran weeewuuaE wm, BER 
es fe 
S 385% $ MBMssNauRaMsskassaeaanasnaxaanans xx FEEEEs 
a 2 rs @ >>>>>> 
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HOW NOWn TRACE jn GNSHOW | 
RACE GNSHOW 
Now <WATCH in DBGNSHOW 


Also 
Also 
Also 
Also CANCEL “Fxce in sBREAK in 

arse rt “Exceer - BeCHiCAN . DBGNCANCL 
Also 


Resi hawt 


1 

1 

1 
fy is ait CBREAK _Exts é: 
VENT ANC t “UATE 14; 


ane 
—_ 


RACE 
CEL “UATE in BENE ANEE 


uu 
memo 


' Value kind Literal As, These values are returned as ‘‘value kinds"’ i 
i DBGSSTA_SYAVALUE and DBGSSTALVALSPEC.. cemented cae peri 
LITERAL | 
G$K_VAL_NOV = 0, ! Symbol is a type and has no value 
DBGSK-VAL “LITERAL 4 Bye, , | 
eee -Vat =AooR 7c inne an adsress tae | 
= 3. - Velue 1S &@ Gescr or r | 
DBGSK~VAL_UNALLOC = 4; 5 Sted 3 


Symbol was never allocated and 
hence has no value 


| 
{ Debug specific DIYPE codes which are used in DBGNEXHNE. | 
These codes are TEMPORAR | 


LITERAL 
DBGSK_DTYPE_AD = 56; ! ASCID string | 


: Maximum number of digits in a packed decimal number. 


LITERAL | 
DBGSK_LARGEST_PACKED = 31; 


SSLESE 


wn 


OP in calls to the PL/I RTL during type conversions and calculations. 
LITERAL 


w 


' PL/I specific data t codes. These are referenced in DBGPERMOP and in 
i DBGEVAL hes ~ | 
| 


SEs 


2 Nn 


&ny—Oe 2© © © 8 
See & 8 


FU PUSVSVSUSUSUSVSVUST SUSU SUSIS SSI 


: Debug Print Control Code. 
LITERAL 


a i 


Set left margin for DB spn int 
Set relative left wer 

Set break on blanks 29 

Set indentation re or continuation 


wn 
* es ¢ © 
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; Bese 8 reco | OO et =5; |! Reset to default settings 
| 
| 
| 
| 
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Input stri ores r definiti This definition is atable with the 
ae SCSB DIVPE, DSCSB. CLASS, D bscé 


7 use of the 


LITERAL 


MACRO 


SCSW_LENGTH, and 
DBGSK_STG_DESC_SIZE = 12; ! Length of descriptor in bytes 


DBGSSTG_DESC = BLOCK CDBGSK_STG_DESC_SIZE, BYTE) %; 


Rc 398GL.18.REO; 1 


CSA_POINTER macros. 
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ADDRESS DESCRIPTORS 


ine Rearess Doacetgter is used to define an address where a bit offset 
is needed in addition to a byte address. 


EP OSSSSCRO ES ESESOSSORT ESE SS SEL 


+ eer eee ee 2 ®e eet eee e@eeorw eee ew eoe eee eee eeeeeeewececeow owt eee eowoeoeeoecaeweoecoee a 


' DBGSL_ADDRESS_BYTE_ADDR i 


Geoececcoseoosoososesccecescoscesesoceo eseeeeeo Se eeeeeeneeneae sane ome + 


' DBGSL_ADDRESS_BIT_OFFSET ' 


Geocceccoeecoecesococoeccescceo eeeeeseo oos oe mee ee + 


—- oOo 


A pointer to an Address Descriptor is declared as follows: 
ADDPTR: REF DBGSADDRESS_DESC; 


i RR eed ee ee ee ee 


at hanng the fields in the Address Descriptor. Also define the declaration 


leat’ 


FIELD bog ooness DESC_FIELDS = 


DBGSL_ADDRESS_BYTE_ADDR ee fh O.L t. -} ! Byte address 
pest. ADDRESS-“BIT_OFFSET = ! Bit offset 


LITERAL 
DBGSK_ADDRESS_DESC_SIZE = 2; ! Size of descriptor in longwords 
MACRO 
DBGSADDRESS_DESC = BLOCKCDBGS$K_ADDRESS DESC_SIZEJ 
FIELD(DBGSABDRESS_DESC_FTELDS) %; 
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; iB ADDRESS EXPRESSION DESCRIPTORS | i 
: 15 | : 
: 8 i The Address Expression Descriptor is used to define an address expres- F 
: 0578 sion. It has the following structure: | : 
; gt 33 2 BERBER EaaS | ; 
; 28 ; 10 § g 5 a : é : 5 ; § 98765432109876543210 | i 
: 282 i + were eeeooeoeoeeecoesoeeeeseeeeeeeeeeseeseeesoeneees ¢eweamzeanmarracesce ca : 
: 2 5 0 , {DBGSB_AED_SIGNATURE: {DBGS$B_AED_TYPE ‘ : 
: 0387 2S ae DBGSL_AED_VALUE | : 
: 588 ' pweeoeewoweeeoeooooeoooocecoosesceceeeeeescosecessocescescoceccoecn + ; 
3 Seen ! F 
; 590 0 : H 
; 0591 8 ! 3 
3 B28 4 A pointer to an Address Expression Descriptor is declared as follows: | : 
: 0594 0 i AEDPTR: REF DBGSAED | ; 
; 0595 0 ‘ 3 
; 0596 0 ‘ 3 
; 0597 0 : Define the fields in the Address Expression Descriptor. Also define the | : 
Z Bees 8 : declaration macro. : 
: 0600 0 FIELD DBGSAED_FIELDS = | : 
; 0601 0O SET 3 
3 poe 0 DBGSB_AED_TYPE = ( 0, 80_ J], ' The type of the value field 3 
; 0603 0 DBG$B_AED_SIGNATURE = (0, B2_J, ! Always contains a code DBGS$K_AED 3 
>; 06046 0 : saying this is an AED. 3 
; 0605 0 DBGSL_AED_VALUE = [ 1, L_ J] ! L-value or pointer to descriptor 3 
; Rone 0 TES; 3 
; 0607 0 3 
; 0608 0 LITERAL + : : 
; Renn | DBGSK_AED_SIZE = 2; ! Size of descriptor in lLongwords : 
: 0611 0 MACRO : 
; pelg 2 DBGSAED = BLOCKCDBGSK_AED_SIZEJ] FIELD(DBGSAED_FIELDS) %; 3 
3 3 
; 0614 0O 3 
; nei? 0 : The following are the legal values for the DBG$B_AED_TYPE field. 3 
; Shi $ i DBGSK_PRIMARY_DESC ' The value field contains the address : 
:; 0618 0 ! ! of a primary descriptor : 
; 0619 0 ! DBGSK_PERM_DESC ! The value field contains the address 3 
; 0620 0 ! ! of a permanent symbol descriptor : 
: pos) 0 ! DBGSK_INSTRUCTION ! The value field contains a PC value 3 
; § 0 ! DBGSK_NOTYPE ! The value field contains an untyped 3 
:; 06235 0 ! : L-value : 
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' command 
' command 


' (e.g. 
i are hata 


DEPOSIT 


VERB NODES 


es 


ND lS 


FIELD 
SOSENE TS MODE FIELDS = 


DBG$B_VERB irene 


DBGSL_VERB_OBJECT_PTR 
TES; 


LITERAL 
DBGSK_VERB_NODE_SIZE 


MACRO 
DBGSVERB_NODE = BLOCK 
ADVERB NODES 


. 3 


ia ee ee ee 
os 


ELD 
SOSEADYERS ODE _f JELDS = 


DBG$B_ADVERB ob TTERAL 
DBG$L_~ADVERB_ VALUE 
DBGS$L-ADVERB_ LINK 


TES; 


COMMAND 


This section contains the definitions for the nodes that are part of a 
xecution tree. A command execution tree is built when a debug 
- AnONes DE hs tree contains a verb node vy Coo the command 
AMINE - etc.) as the header node. 

ns of adverb nodes and noun nodes. The noun node chain han 

the OBJECT_PTR field and the adverb node chain hangs 
field. The exact structure of the tree depends on 


Geooceccoeccecsesesoooceccowescoesccccecoeccecces} += 


toe muwnoneran men rsracaee sees 


wwe reeneroece eeeeoe Seeeeoeoeoeeoe See eeeeeeeeenoeeneeae woh 
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TREES 


VAX-11 Bliss<-32 v4.0 
YESS SSDUA28s DEBUG. SRC IOBGLIB.REO: 1 


KECUTION 


inked to the verb node 


a° pf off 
off the ADVERB_PTR 
he  gonnend. 


domme neawaeoeae eeeceee SSM TO TB BMewr owe wn ae ome we oa we oe $ ae eeeeoe wee we ane me 


'$B_VERB_COMPOSITE!$8_VERB_ LITERAL: 
DBGSL_VERB_ADVERB_PTR ' 


Guececeoeseseonsooseeseesoeesesooceso eSseeeeoeonee Seeeeeee eee eneneo +b 


DBGSL_VERB_OBJECT PTR H 


Bs Go Bs Be ' First level verb 

0, B. 8, 0) ' Second or third level verb 

1, 0, 32, 04, ' Pointer to adverb node 

2, 0, 32, 0) ! Pointer to object (noun node) 
$3 ! Length in Longwords 


CDBG$K_VERB_NODE_SIZE] FIELD (DBGSVERB_NODE_FIELDS) %; 


peer ere ee eoe ne msanece See eeeeeoeeoeee eSeeeeeeoeaeneo Se e2e2 Ff Se eee eeeoeeoeeneae 


{ADVERB LITERAL! 


= -seeceovoocoooon $+ 


_DBGSL ADVERB “VALUE ' 


se weceoessouste SS se om on oe Swe wee + 


“DBGSL _ADVERB LINK : \ 


accoeseee oenecenr con aes eceee eer ee ne + 


' Adverb id Literal 
! Value (integer) 
' Link to next adverb node 


17 
(10) 
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; 06 LITERAL 

; : DBGSK_ADVERB_NODE_SIZE = 3; ! Length in Longwords 

: 06 MACRO 

H 68¢ DBGSADVERB_NODE = BLOCK CDBGSK_ADVERB_NODE_SIZE] FIELD (DBGSADVERB_NODE_FIELDS) %; 

: 0685 ! NOUN NODES 

; . : 0 ‘ DBGSL_NOUN_VALUE H 

3 (06 oyu DBGSL_ADJECTIVE_PTR ; 

; O96 : va DBGSL_NOUN_L INK H 

H 98 ; om DBGSL_NOUN_VALUE2 H 

b 99 ' become mm newman ccs ne reco ee oe eee sweccsesoeseeessesosesesoscosecsce$ 

; Orr O | 
; 70¢ 0 FIELD DBG$NOUN_NODE_FIELDS = 

3 70 SET 
3 704 0 DBGSL_NOUN_VALUE = (0, L. J,! Noun value 
: 0705 0 DBGSL-ADJECTIVE_PTR = £C 1, L_ J,! Pointer to adjective (unused) 

3 B 706 DBGSL_ LINK” = ¢- L_ J,! Pointer to next noun 

; 070 DBG$L_NOUN~ VALUE = - L. J.! Additional Noun value 

; 0708 O DBGS$L~NOUN_ VALUE =( 4, L_ J,! More Noun value (long nodes only) 

; 0709 0 poset J “NOUN-VALUE4 = ([€ 5, L- J ! More Noun value (long nodes only) 

ae 8 wf 
; O71¢ Q LITERAL | 
36 «(OTT DBGS$K_NOUN ~NODE.§ 1ZE = 4, ! Length of normal Noun Node in longwords 

; 0716 0 DBGSK_NOUN_NODE-SIZE_LONG = 6; ! Length of long Noun Node in longwords 

BRB men 

; 0717 0 DBGSNOUN_NODE = BLOCK CDBG$K_NOUN_NODE_SIZE] FIELD (DBGSNOUN_NODE_FIELDS) 2%; 
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The Command Input Stream (CIS) is a Linked List that the debugger 
maintains to describe where it is currently taking input from. 


The format of a Command Input Stream Descriptor is: 


OES SSSSS PAE ESESESSESER TEST SSESE, 
arr ed eta om a ae or oe 


' Unused | SB_INPUT_TYPE ; CIS$W_LENGTH : 


duitdecwennenteiibunelinanselinnnndjnaemesminmsliicemnamieetenma 


H CISSA_INPUT_PTR ' 


Geewooeeooeooeococococococececosecceesccescceccccccccccceccccecos} 


: CISSA_NEXT_LINK ' 


$roweeenoccoeeoococecoocceeecoscecosccoccceceeccccececcceceecess} 


' CISSA_INIT_ADOR ' 


' Unused H Flags H CISSW_INIT_LENGTH 


Gewooeoeooooeoes}ocosoecoeoeooos}cocccocececescoecscececeeoeccces} 
‘ CISSA_WHILE_CLAUSE iM 


' CISSL_FOR_UPPER_BOUND or CISS$L “REPEAT COUNT ' 


4 eqeceeooosooosoeseosoesosesocoocoucessonsossocoscoseceocesseceos 


' CISSA_FOR_LOOP_VAR ' 


+ Seeceeseceoosooooowsoocoowescoescocosoosescosocccoceccococcocce} 


' CISSL_FOR_LOOP_INCR H 


Panna nnn SE OUTRUT 
Re __ 
CORE NT 
OER I 
SE A ee 


S gptnter to a command input stream descriptor block is declared 
w : 


CIS_PTR: REF CISSLINK 


i Define the fields, the descriptor size, and the declaration macro. 
FIELD CIS_FIELDS = 
SET 


' Length of aay buffer 
! Pointer to input qus ter 
' Ptr to next cis | 


23 

‘ 

m 
nan 
nnn 
--<cow 


} ! Type of CIS Link 
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! The definitions below should eventually be eliminated when all uses of 
‘ them are converted to the DBGSK_ form. 


i EISAInHTt0ttoy = HE: be J | Sictasee ft toqug butter 

; i . Ww : oe 

am: HER er eg FS Vath tell stony ty, segrat 

; “ “- of when ¢ 

; 7 C1SSV7SCREER. NOcO = 18, V_(2) “ covet On a9 fe owen ott - Ps 
; : $s r 

3 7? CISSA_WHI f = }: ! Pointer to UHIL ommand meta 
3 7 CISSL_REP 4,1 ' Count for REPEA = 

3 ? CIs 4, C._4.' Upper bound for oops 

3 7 CIs - L.-J, ! Pointer to the FOR loop var name 

; 785 cis - LJ, ! Increment for FOR | Lge 

; ? cis » Lo gd. | Reset value for 086 ie _SCREEN_OUTPUT 
3 7 cis 40, Lo J. | Reset value for DBGS$GL-SCREEN- SOURCE 
3 7 cis 44, Lo J, | Reset value for DBGSGL-SCREEN ERROR 
3 7 cis $8. L. J. ! List of buffers to freé in CIS_REMOVE 
; CIS 52. Ww 

; 791 TES; 

; 38 LITERAL 

> 079% CIS_ELEMENTS == ‘54; ! CIS block size (bytes) 

; 96 MACRO 

3 ja CISSLINK = BLOCK CCIS_ELEMENTS, BYTE] FIELD(CIS_FIELDS) 2%; 

3 Soe The following are legal types for CIS Links. 

; : LITERAL 

H DBGSK_CIS_MINIMUM = Q, ! Lo “ye t CIS 

Bass Bectiaeo Sf: | iis pple 

. om - S e 2 e 

; DBGSK~C1$~INPBUF = 3 5 es oout totter 

; DBGS$K_CIS_ACBUF = 3, ! Type action buffer 

; DBGSK_CIS_REPEAT = 4, ! Type repeat buffer 

; Sosa bt se unILE = 5, } Type ¥ le buffer 

3 = 6, ‘ e 

; DBGSK_CIS_FOR = . } Type for buffer 

; DBGSK_CIS_SCREEN = g. : Type e for Screen Display 

; DBGSK_C1S_MAX IMUM = 8; ! Highest type CIS 


LITERAL 
CIS_DBGSINPUT = 9. ! Type DBGSINPUT 
CIS-RAB 2 i, i Type RAB 
CIS- or = ¢° i Type inpyt buffer 
C1S-ACBUF » & i Type action buffer 
C1s- rity y = 4, i Type roepat buffer 
CIS" WHILE = 5, i Type while buffer 
CIS"IF = $. i Type if buffer 
CIS-FOR = 7, i Type for buffer 
CIS-SCREEN = 8; i Type for Screen Display 


———————— 


WERNER USA MANT THEME Llosa cess dd 


: CONTROL FLAGS 

i Control flags goo DEBUG status flags used to control the 
: 4 of eBue execution. They represent the major state 
i 7. 


MACRO DBGSCONTROL_FLAGS = BITVECTORCI2; 
LITERAL 


trol “ISTRY taseraselons. 
Set Ws screen displays must be updated 

gs Rey —oe has run 
Set i? vas or 4.0 


DBGSV_CONTROL_SCREEN = 11, 
DBGSV_CONTROL_VERSION_4 = 12; 


DBGSV_CONTROL_TDBG = 9. ' Set if this {s + eataele DEBUG 
DBG$V—CONTROL_SDBG e i. ' Set if this i 
DBG$V— CONTROL -KDBG = ¢: ! seseryed for luture development 
DBGSV— CONTROL URUN = 5, ' Set i 9 pros ram has been run to 

: st OPaus eBuce tek EE merory 
DBGSV_CONTROL_EXIT = &, ' Set if DEBUG is about 
Doce -ConTRor “pone = 5, ! Set DEBUG internal vara; 
DBGS$V_CONTROL_D = §. ' Set ao execution ——, 
DBGSV-CONTROL-ALLOCATE = 7, ' Set if OK to os Leceate 

‘ e@.g., RODULE/ALLOCATE) 
DBGSV_CONTROL_USER = g. ' Set if user ieaven $ runnin 
DBG$V—CONTROL_ STOP . F, ' Set by oie sequence to abort 

$ 5 og Peay DE command files 
DBGSV_CONTROL_TBIT = 10, H Used Y bBeE vE 

! 

i 

i 


$ running 


! We also define a macro SABORT_ON_CONTROL_Y. The purpose of this macro is 
i te allow premature termination of commands which can take a large amount 
i of time to complete but to allow the individual command routines to make 
i sure that they leave all DEBUGs internal data structures in a consistent 
i state. Execution of this macro will have no effect if the Control-Y fla 
i is clear, but will SIGNAL back to DEBUG command level if the flag is se 


MACRO SAORT ON CONTROL = 
EXTERNAL DBGSGV_CONTROL : BITVECTORC); 


a ai CONTROLCDBG$V_CONTROL_STOP] THEN SIGNAL (DBG$_ABORTED) ; 


eure 


BESSSSSESE 
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DEFINE SYMBOL TABLE 


The Define Symbol Tepie contains information about the symbols 


that are currently def 


ned with the DEFINE command. 


There is a doubly linked List for all globally-define 


-@., $ 
The global variable DBGSGL_GLOBAL_DEF 


ynbols defined vith DEFINE <syabol> == <definition>) 
f points to $ List. 


For each command procedure that is active, there may also 
pe 8. 00! Ane list that is local to the proced 


LOCAL _DEF INE_PTR pe nts to a doubl 
blocks. Each header block points to a dou 
of symbols. 


Pictorially, 


GLOBAL _DEFINE_PTR => | entry | <=> | entry | <=> 


AVF WN "OOO wis-wn—O0C 


4 
90 
00): 
90 
71 
71 
71 
71 
71 
71 
71 
71 
71 
: 


LOCAL _DEFINE_PTR => | header | <=> | header | <=>... 


v Vv 
i entry | i entry | 
a oor _ _ pen 
v V 


The format of a header block is: 


y*linked List 


PES OSESSCRCEIUSSSSSSOLSESESESSE 


PPO OO mE Ome BE MOE EO EBC were rte mew rere ee mere me eee een oe + 
: DEF SA_NEXT_LINK i 
: DEF SA_PREV_LINK 


The format of an entry is: 


PET ESESSPRO LL ESESSSSE LI ESESELSL 


WCRI SEEN YMGHA ALUN HMate PB w.ncsn "rf 


Femme eeseeeeeeeoeooeecooooesee coco seeeeeeeeeeeescoscesosescosesos$ 


' DEF SA_ENTRY_NEXT_LINK H 


Ye Seeseseoseseosoosoososooosseeeeesoeeeseeesssecososooseeoosescco H 


: DEFSA_ENTRY_PREV_LINK ' 


Geocecoesesecooooeseosooscesoeesosoesesesesssesooosooosesecocsoo e 


' DEF SA_NAME a 


o ecececosescoosososesooooeoocesosoesococosecoccocesosce Seeeeoneenon H 


' DEF SA_VALUE ' 


: Unused | DEFSB_KIND H 


-* wen - O&O 


i Define the fields of a DEFINE entry. 
FIELD DEF INE LENTRY_FIELDS = 


DEF sa -ENTRY_NEXT LINK = (0, L_ J, 
DEFSA_ENTRY_PREV_LINK = [ 4, L- J, 
DEF SA_NAME = 


Mw 


Forward Link 

Backward Link 

Points * @ counted eerine 
with the name gene defined 


DEF SA_VALUE ef 12. t. 3. Points to $ dese riptor or 
counted strin ng with the 
‘value’ of the symbol. 
DEF SB_KIND = ({ 16, B0_ J Contains +H for the "kind 
of definition. The codes 
Tes are defined below. 


: Define the fields of a header block. 
FIELD DEF INE _HEADER_FIELDS = 


NOS SONS RUIN =O Oe NC 


per SA. NEXT =(£0,t.]. ! Forward Link 
55 DEF SA_PREV 4, ]. ' Backward Link 
5¢ DEFSA “DEF IRE. LIST =({ 8 LL ' Points to the Linked List 
: : of DEFINE entries. 
58 TES; 
? : Define the size in oytes and in words of the above structures. 
97 LITERAL 
74 DBGSK_DEFINE_ENTRY_SIZE_B = 17, 
75 GSK_DEFINE_ENTRY SIZE wW = 5 
7 DBGSK"DEF INE-HEADER_SIZE_8 = 12, 
8 DBGSK_DEF INE_HEADER_SIZE_W = 3; 
80 ! Define the codes that will be used for the possible kinds of 
i j Syabet definitions 


Be Se Ge Se Se Ge Se Se Ge Se Se Ge Ge Se Se Ge Se Se Se Se Se Fe Ge Se Se Se Gs Se Se Se Se Se Ge Se Se Ge Se Ge Se Se Se Ge Se Se Ss Se Se Se Se Ge Ge Ge Oe Ge Ge Ge ee 


SEC CAC OOOOOOOOOOOOOOOOOS COO OOOO OOOOOOOOOOOOOOOOOOOOOOoOoes 
: 5 Dw Be oO + 9 OOOO OD PW ODDO WWWWDDOwWOH 
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FINE. T = 1, ! Lowest value of DEFINE codes 
HARE, rf: : 
S ’ 
a “PROCEDURE = 3, 
DEF INE STRING = 4, 
F INE VALUE = 5, 
F INE PARAMETER = 6, ! This is used to temporarily store str ion 
; representing gc tue) parameters il 
i they are bound to formals by the 
; gsy ‘3 : DECLARE command. 
DEF INESMIGHEST 27: ! Highest value of DEFINE codes 


: Macros for declaration of DEFINE entries and headers. 


CRO 
edhe 
a $4 k Coecsk DEFINE _ENTRY_SIZE_8, BYTE] FIELD (DEF INE_ENTRY_FIELDS)2, 
DEF INE SHE 


BLOCK bBGSK DEFINE _HEADER_SIZE_B8, BYTE) FIELD (DEF INE_HEADER_FIELDS)2; 


ao os tt 


—> ee i 


Now 


ERROR STATUS CODES 


Aa... ~4 Ray are defined in re MOL Rul the at is found here ones 
= ee entered in that file. ALL th . ound here are 
=o tions * relat ng to components of sSteus code 


i Define the possible values of the status severity field. 


LITERAL 
SYSSK_INFO = 3; ! Informational status severity 


‘ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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EVENT TABLE ENTRY 


moe Event seote contains all information about ali s set break- 
Ff —. trace pete oe wageooers nts. For each set eeventpo tte. Lowy 


Anh ons aL. le Ent 4 The exact forest of the Event 
he nature of the 
pie Sees the following general format: 


PET OSSSOSSORIOSESSOSOSI ESTOS TEE 


Pweeeeeeeeeee ee eeeeeeeeeeeeeeeeeeeeeeeeoeecoeeoocecesoesesoeeseooes + 


H EVENTSL_CMD_FLINK 


Geowoeeooeoesceccocececooeeoecosocesocccccocececocceccocccescecs + 
; EVENTSL_CMD_BLINK : 
‘ EVENTSL_EXC -FLINK H 
: EVENTSL EXC BLINK H 
' EVENTSL “EXCEPTION i 
tufoccootosotpoposfooceceececceces}o een ce see ee eece fem anmerem sn erence > 
i7i = $3:2:1:0! B_SUB_KIND { B_CMD KIND ' B_CMD TYPE ' 
Fa temwwntototetotpoecesccescece eontooafatpotatatetotete totatosaotosuteq 
'BL SAVED. SUB_KIND: - unused - iDiCiBs TAID! iat 7 16; 3: 4 i3i 21 i 101 
¢esececesece Semewwwmee ewww neoeewonoontopotototototototototototeteo + 
Hu EVENTSL AF TER_COUNT : 
; _EVENTSL WHEN : 
i  EVENTSL D0 ‘ 
tonne enwer eee Cease mam awe Soon meses ease em omen want anon nnecmoceszcmee > 


The remaining fields depend of the command type 


} coccccccces 


E 
SJE 
} 
EVENTSV_RET_AT_PC 


(5) EVENTSV_DELETED 


6] EVENTSV_OVRD_LINE 
? EVENTSV"STEP_LINE 
6 
6 


<<<<< 
peapheghegapt| 
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& 
JDBGLIB.REQ; i?” 


eventpoint itself, but all Event teble 


1-beoctge 35:28:06 “S¥sS¥ouad8scoceuc:sncioeciie.rea:1 918) 


no 


5: VENT v5 TEP SOUR cf 
: ‘ NT$V_OV D>NOSt Sten 
: ui yap TED MOste TEM 
: VE NTSV“OVRD-NOS ILENT 
: VENTSV_STEP_NOSIL LENT 

A: VENT V=STer oF PT 

B: 6 EVENT VoStEPTy ICK 

Cs EVENTSV_STEP_LINE_OK 

D: (6) EVENTSV_BREAK_ADDRESS 


A pointer to an Event Table Entry is declared as follows: 
EVENTPTR: REF EVENTSEVENT_DESCRIPTOR 
Define the fields of the Event Table Entr Also declare the maximum 
size of an Event Table Entry and define the declaration macro. 
IELD EVESTOE VENT DESCRIPTOR FIELDS = 
EVENTSA_EVENT_DESCRIPTOR = (0,A_], ! Event Descriptor address 


EVENTSL_CMD_FLINK = 0.1.3. Command queue foward Link 
EVENTSL_CMD-BLINK = 1 ! Command queue backward Link 


EVENTSL_EXC_FLINK = feet}. ! Exception queue forward Link 
EVENTSL_EXC_BLINK = Exception queue backward Link 


EVENTSL_EXCEPTION = (4,L_), 
EVENTSB_CMD_TYPE 
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Exception code we expect to see 
= 5.80_], ! Command type 

VENTS$B_CMD_KIND = 5,81 ' Command k 

VENT$B8_SUB_KIND = 5°82-). ! Command Subsk ind 


EVENTSB_CMD_FLAGS = [(5,83_), ! Command flags 
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EVENTSV_SILENT = 5.V3_(0)], ! Flag set if /SILENT qualifier set 
EVENTSV_ Mos gr 2g = 5.V3_(1)], ! Flag set if this is threaded code 
EVENTSV_ONCE_ON = 5.V -{¢) - | Flag set ly temporary event entry 
EVENTSV_HAS FOAL  DscR= 5.V3.(35)], + Flag set A there is is an Event 
: ue Desc 
EVENTSV_ROUTINE = fe-¥ ~()}. ! Flag set if ROUTINE E EventPoint 
EVENTSV_RET_AT_PC = -V5_(5)], ! Flag set if SET BRE ARRET ) by TRACE) 
; address is at current PC 
EVENTSV_DELETED = [(5,v3_(7)], ! Flag set if this entry is deleted 
EVENTSL_STEP_FLAGS = (6,L_]), ! *Stepping’ flags 
EVENTSV_OVRD_LINE = 6.V_( 0)], ! Flag set if override step/Line 
EVENTSV_STEP_LINE = -V_( 1), ! Flag set if step/Line 
EVENTSV_OVRD_OVER = 6,V_( $} - | Flag set if override step/over 
EVENTSV_STEP_OVER = g.V_t J, | Flag set if step/over 
EVENTSV_ eye CE = -V_( 4)], ! Flag set if override. etep/source 
EVENTSV_STEP-SOURCE = 6,V_( 5)], ! Flag set if step/ source 
EVENTSV_OVRD-NOSYSTEM = [6,V-( 6)], ! Flag set if override step/nosystem 
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VENTSV. STEP 

TSVOVRD~ 

VENT V=STEP 
VENTSV.STEP_BP 

ENTSV~STEP-TICK 

VENTSV<STEP“NOLINE = 


EVENTSV_BREAK_ADDRESS = (6,V_(13)], 


EVENTSB_SAVED_SUB_KIND= 


VENTSL_AFTER COUNT ° 
VENTSLUSTEP COUN 
EVENTSL_SSV COUNT 


VENTSL_WHEN = 
VENTSL-USERS_PC 


EVENTSL_DO 

EVENTSL_USERS_FP 
EVENTSL_PRIMARY s 
EVENTSL-OPCODE_LIST = 


EVENTSL_ADDRESS 
EVENTSL_FP_RET_CNT 


EVENTSL_VALDESC : 
EVENTSB_OPCODE . 
EVENTSL_THREAD = 


EVENTSA_VMSDESC = 


EVENTSL_STEP_LO_PC = 
EVENTSL-STEP_HI-PC = 


EVENTSL_CALL_FRAME = 
TES; 
LITERAL 


(6,83_), 


Bey 


C12,t_], 
(12,80_), 
C12.L_), 
(13,A_), 


bests}: 


C15,L_] 


EVENTSK_EVENT_DESCRIPTOR_SIZE = 16; 


CRO 
EVENTSEVENT DESCRIPTOR = 
BLOCK CEVENTSK EVENT DES 
FIELD CEVENTSEVENT _DESCR 


! Macro to assign an increasing value to each 


CRIPT 
CRIPTOR 
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step/nosystem 
if override. tep/nosilent 
if step/nosilent 
t if step over BPT active 

9g if oew ste 
Flag set if Line not found 
leg oot if the prolog address is 
u 
Saved value of SUB_KIND 
eg ae ay 
Address = @ count which keeps 
track of the number of SSV calls 
originated from one SSV 


WHEN expression pointer 
User's PC for STEP/RETURN 


. cqanend ase int 
r ST P/RETURN and 
BREAK! TRACEI/RETURN skips 


Primary pointe 
Instruction eocede list 


Byte address 

Address of a count which keeps 
track of RET for SSV return 
Value descriptor pointer 
Opcode byte 

Thread 


VMS Descriptor 


Tevels 


' Step Line lo PC 
! Step Line hi PC 


Pointer to Saved value from FP 


Descriptor size in longwords 


member of a <name> List, 
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8: COEBUG 
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BUG. SRC 
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H 1388 ! starting with <constant>. i 
ee fb ; ‘ 
3 133) CRO 3 
7411 g mre (CONSTANT, NAME) [) = : 
; 4119 CONSTANT | : 
; 4 1194 mF E EMULE (ZREMAINING) i 
; . Bb ee ZEXITMACRO 
3 1199 » ENUMERATE (CONSTANT + 1, %REMAINING) 2%; ; 
1135 | 
; } 4 } The following are the allowed values of the EVENTSB_CMD_TYPE field. | i 
Se 6g 0 LITERA | ‘ 
; P 1203 0 ENUMER ATE(O, ! Starting with 0... F 
; P 1206 0 EVENTSK_TYPE BREAK, ! Break ‘ 
; P 1205 “TYPE-TRACE, ! Trace ‘ 
;P 1 06 EVENTSK_TYPE WATCH, i Watch i 
; P 120 EVENTSK_TYPE_STEPS, ! Steps ; 
3; P 1208 EVENTSK_TYPE_SKIPS, ! Skips ‘ 
; P 1209 0 EVENTSK_TYPE_IGNOR, ! Ignored eee reat ine an event ‘ 
; P ; \9 EVENTSK_ TYPE_SSINT ! System service Intercept Event : 
i BR 8 | 
3 \s\¢ : : The following are the allowed values of the EVENTSB_CMD_KIND field. i 
; 1518 0 LITERA 3 
3; P1217 0 ENUMERATE ( 0, : starting with 0... : 
; P1218 O EVENTSK -KIND_ACC, ! Access {READ etc.) : 
; P1219 0 EVENTS$K_KIND_INS, ! Instruction ‘ ; 
; P 1220 O EVENTSK_KIND_EXC, ! Exception H 
; P 1221 O EVENTSK_KIND_SKP ! Skips 3 
3 \$s¢ 0 ); 3 
§ \ 0 ‘ 
:; 1226 0 3 
3 \$¢2 8 : The following are the allowed values of the EVENT$B_SUB_KIND field. : 
: 1559 9 Cirera | ; 
3; P 1228 O ENUMERATE (0, 1 peerting wt with 0... ; 
3? } $3 0 EVENTSK_ACC_READ, ' Access Rea : 
7; P 1 0 EVENTSK_ACC_WRIT, ! Access urite : 
; P 1231 EVENTSK_ACC_MDFY, ' Access Modif : 
3? 1s 2 EVENTSK_ACC_EXEC, : Access Execute i 
3; P 1235 EVENTSK_ACC_RTRN, ' Access Return F 
3; P 1 0 EVENTSK_INS_CALL, ! Instruction Call F 
; P 1235 8 EVENTSK_INS_BRAN, ! Instruction Branch i 
3; P 1 EVENTSK_INS_LINE, ! Instruction Line : 
3; P 1 0 EVENTSK_INS_EVRY, ! Instruction Every : 
3; P 1238 +O EVENTSK_INS_USER, ! Instruction User : 
3; P 1239 EVENTSK_SKP_READ, ' Skipping Rea i 
3 P 1240 EVENTSK_SKP_WRIT, ! Skipping Write ; 
3: P 1241 8 EVENTSK_SKP_MDFY, ! Skipping Modify j 
7; P1 $g EVENTSK_SKP_EXEC, ' Skipping Execute : 
3; P 124635 0 EVENTSK_SKP mye ! Skipping Return : 
3 iste 8 EVENT OK, EXC-EXC ‘ 
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EVENT TABLE ENTRY FOR CBREAK! TRACE] C/RETURN] POINTS 


This form of the Event Table Entry is used for ordinary end /RETURN 
breakpoints and tracepoints. $ thus used whenever the 

implementation of the eventpoint is to store a BPT instruction at 
the event location. This form is not used for threaded code (used 
only for COBOL-74), however. 


ES SSSESEAEESOSESSISER TEST SSTSE 


SP rnrei en seer ct SU OP SM cae ee eRe 
Lopate RRR ees 
H EVENTSL_EXC_FLINK H 
a | 
S iabpalcbuindsGhidaee ee ee liane ! 
an a I se TO Fi BO 
1B.SAVED_SUB_KIND! = unused = __{DiCiBiA!918:716!514:3!211:0! 
: EVENTSL_AFTER COUNT : 
er rea Se MOR ee a: : 
PRIOR I Pees: Byaeeurensay H 
[<-- tn Pn ee crpaesiacis ie : 
anemones a: SOME OE co eee | : 
te Fnac 
EVENTSA_VMSDESC 
RS ee een iG aaa casei aaiLlt sidieioaeanieaacnaiaa . 
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EVENT TABLE ENTRY FOR TREADED CODE EVENT POINTS 


This form of the Event Table Entry is used for breakpoints and 
tracepoints in threaded code. Threaded code is only used by 
COBOL-74 and is thus obsolescent, but we still support it. 
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' EVENTSL_CMD_FLINK H 
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EVENTSL_EXCEPTION | 
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(7) = $3i2i1i0! BLSUB_LKIND { B_CMD_KIND : B_CMD_TYPE ; 
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'B_SAVED_SUB_KIND: = unused - ICIBIASDiBi7161514135211:0: | 
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: EVENTSL_WHEN  t | 
i EVENTSL_DO : 
5 10 3 EVENTSL_PRIMARY : | 
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11 ' __EVENTSL ADDRESS i | 
gree wre socceoe ewe ee ween nee een eee eeeeccsweeoooescooeccococccoocese 
z 12 ! ~_EVENTSL THREAD : 
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EVENT TABLE ENTRY FOR /READ, /WRITE, /MODIFY AND WATCHPOINTS 


This form of the Event Table Entry is used in all cases when data 
locations are watched for read accesses, write accesses, or modifying 
accesses. It is thus used both for SET BREAK/MODIFY, for example, 
and for the SET WATCH command. 
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' EVENTSL_CMD_FLINK ' 
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' EVENTSL_EXCEPTION : 
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pr eoco wo omen eno o tr eB eet een wee DO Ow NTE DO OSBORN DS OOS EME Ee CDOT MH Ewwowee > 


: EVENTSL_DO ' 
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: EVENTSL_ADDRESS ' 
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EVENT TABLE ENTRY FOR /CALL, /BRANCH, /INSTRUCTION 


This form of Event Table CALL is used for the ser clita 
TRACE commands when ghe /CALL, /BRANCH, or /INSTRU th o 
se present. It ist mS used in al cases where Eoirete ons must 

be yreced (T-b ted). netrust on at a time, and the event is 
activated when an instruction of a certain class is encountered. 
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13 { EVENTSi_STEP_LO_PC ' 
14 : EVENTSL -STEP mt | PC H 


14 | 
1$-}en-1964 83:23:00 “S35 bS00AS8 Stotevc: sre ioecc1e.reo;1 P08? 20) 


EVENT TABLE ENTRY FOR STEP 


This form of Event Table Entry is used for the STEP command. 
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' EVENTSL_CMD_BLINK H 
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EVENTSL_USERS_FP 
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' EVENTSL_OPCODE_LIST ' 
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H EVENTSL_ADDRESS ' 


: Unused ‘EVENTSB_OPCODE : 
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EVENT STEPPING DESCRIPTOR 


This structure defines the current step type(s). 
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' EVENTSL_STEPPING_OP_LIST H 


Geoececeeooocoososooosooesesoscososesoososessesococoscesecocecooe + 


e: EVENTSB. STEPPING KIND 

a: EVENTSV-STEPPING_LINE 

a: EVENTSV~STEPPING_OVER 

$: EVENTSV_STEPPING_SOURCE 
%: EVENTSV~STEPPING_NOSYSTEM 
‘ EVENTSV~STEPPINGNOSILENT 


A pointer to an Step Descriptor Entry is declared as follows: 
STEPPINGPTR: REF EVENTSSTEPPING_DESCRIPTOR 


i Define the fields of the Step Descriptor ag! Panes p- declare the maximum 


! size of an Step Descriptor Entry and define 


eclaration macro. 


FIELD SvEsTseTErr ine DESC_FIELDS = 
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EVENTSA_STEPPING_DESCRIPTOR = 0,A_) ' Event Descriptor address 
EVENTSB-STEPPING-KIND = 0/80 ; i Step kind (as EVENTS$B_SUB_KIND) 
EVENTSV-STEPPING-LINE = O.v_t i}. i Stepping /LINE 
EVENTSV-STEPPING_OVER = 0,v7(9) i Stepping /OVER 
EVENTSV-STEPPING SOURCE = 0,V7(10)), | Stepping /SOU 
EVENTSV-STEPPING_NOSYSTEM = O.v7(11)], | Stepping /NOSYST 
EVENTSV-STEPPING_NOSILENT = 0,V7(12)], | Ste ping /NOSILENT 
EVENTSL-STEPPING_OP_LIST = 1,L7) i 7CA BRANCH, etc. 
TERAL 

EVENTSK_STEPPING_DESC_SIZE = 2; ! Descriptor size in longwords 

CRO 

EVENTSSTEPPING DESCRIPTOR = 
BLOCK CEVERT$K STEPPING DESC_SIZE) 
FIELD (EVENTSSTEPPING. DESC Fre ELDS) %; 
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EVENT DO LIST DESCRIPTOR 


An Event DO iret | ibovsetton. is created for each event-point which 


aes gn assoc gted 7 descriptor points to the text 
of the +o on itset 7? what al lows the DO-action to 
be accessed the ev ~~ s nt is taken. s is the rent of 


the Event DO List Descriptor: 
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+ Seeeesoosesoeseoossossoososesosssosessesosoooooocoscocesoescoseso + 


' EVENTSL_DO_LIST_BLINK ' 


+ eeeeeeesoocesooososesoesouesscoseooosoooesoosco See eeeoenoonenann@ o=2ee + 


EVENTSL_DO_LIST COUNT ' 
' EVENTSL_DO_LIST_ POINT ' 


Geoescecesoooesococeecsoccecescescooe= we enme Rewer coe saw ewmesaroenwae a 


SSLERFUN AS SRBVSER Rr 
wn - © 
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A pointer to an Event DO List Descriptor is declared as follows: 
DOPTR: REF EVENTSDO_LIST_DESCRIPTOR 
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Define the fields of the Event DO List Descriptor. Also declare the 
descriptor size and define the declaration macro. 


FIELD EVENTSDO_LIST_DESCRIPTOR_FIELDS = 


‘ 
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i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
‘ 
i 
F 


RAE 
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: EVENTSA_DO_LIST_DESCRIPTOR = (0,A_J],! DO List Descriptor address 

35 EVENTSL_DO_LIST_FLINK = FOL. - | DO queue forward 
: EVENTSL-DO-LIST-BLINK = 1 : and backward Links 

? EVENTSL_DO_LIST_COUNT = (2,1_], ! DO reference count 

367 EVENTSL_DO_LIST_POINT = [3,L.] ! DO List pointer 

65 ES; 

6 LITERAL 

o8 EVENTSK_DO_LIST_DESCRIPTOR_SIZE = 4; ! Descriptor size (longwords) 
0 

" y “EVENTSD0 ‘ EVENTSK 00 LIST pes CRIPTOR_SIZE) 
38 PiecD (EVENTSDO LTS SDESE IPTOR_FTELDS) 2%; 
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EVENT WHEN DESCRIPTOR 


A eae Be N Y Deve peer is erected each eiee @ SET BREAK, SET 
TRA tement has a WHEN clause. The Event WHEN 
Descriptor AR to the location of the boolean ye hnsupress ion 
ows this expression to be evaluated each time the X-point 
s reached. This is the format of the Event WHEN Descriptor: 


ET ScSSSEROLIOSOSSESESIESESSISL, 


$wmomoeeroee mn wee emer mmm e weer m ee emem cece coe ec ecco e em mee ero oe ooo es 2eeeeee a+ 


' EVENTSL_WHEN_FLINK : 


a seeeecooeooceososososesoceoccesososscoosescoeso eSeeoeeoeeeo eSeeeoeoeoeo + 


' EVENTSL_WHEN_BLINK ' 


Goeocoeeceseosecouesecososeeocosesoocosooocecesesos seeeoe Seeeeeneeene + 


' EVENTSL_WHEN_COUNT ' 


Goeoocecccososesosoososceoeseussoocososoescossesceso sSeneeeeo eemsecaas + 


' EVENTSL_WHEN_POINT H 


Geeeccceesesoosoooosovoscecceesoocoscoesocoessco eeeeoeon Seeeeoneneenenenen + 


wn —- ©& 


A pointer to an Event WHEN Descriptor is declared as follows: 
WHENPTR: REF EVENTSWHEN_DESCRIPTOR 


Define the fields of the Event WHEN Descriptor, its size, and its 
declaration macro. 


IELD EVERTON DESCRIPTOR_FIELDS = 
EVENTSA “GHENT vie o = 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
‘ 
‘ 
' 
‘ 
' 
! 
' 
' 
‘ 
' 
' 
‘ 
' 
' 
] 
' 
i 
i 
i 
i 
é 


! WHEN Descriptor address 
! WHEN queue forward Link 

a2 | WHEN queue backward Link 
-J- | WHEN reference count 

= fr st pointer 


! WHEN | 
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ses &©® 8 & 
----> 


LITERAL 
EVENTSK  WHEN_DESCRIPTOR_SIZE = 4; ! Descriptor size (longwords) 


RP VENTSUHEN pesce PTOR = 
BLOCK CEVENTSK WHEN DESCRIPTOR SIZ 
FIELD (EVENTSWREN_DESCRIPTOR_FTELD 
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EVENT PAGE DESCRIPTOR 


Page Descriptor: 


+e 


' 
' 
' 
‘ 
' 
‘ 
' 
| 
‘ 
' 
' 
a 
' 
' 
4 
‘ 
1 
' 
i 
i 
' 
' 
' 
' 
' 
1 
' 
' 
| 
' 
i 
i 
size and the declaration macro. 
f 


EVENTSA ate att ane = 


EVENTSL_P. 
EVEN TSP AGE “BLINK 
NTSL_PAGE~ADDRE 


VEN $$ 
VENTSW_PAGE-REF COUNT 
3 PAGE PROTECTION 


LITERAL 


EVENTSK_PAGE_DESCRIPTOR_SIZE = 


CRO 
EVENTSPAGE DESCRIPTOR = 
BLOCk K TEVENTSK K_PAGE DES 
IELD (EVENTSPAGE_DESCR 


IELD EvENTePAee DESCRIPTOR_FIELDS = 


ERGIE SithS) sdb uNTaBME 


An Event Page Descriptor is created for each page watch * -—— 
ty bes. © watch-point one or aore variables 
age Descriptors are Linked t 


on ent 
rate ? Cously [nee Pe List unten 
is pointed to by variable SKK “te 5 


the ormat of an Event 


EI SSSSOSRORIOSOSSSSORI ESE SSSSE 


a errr rreZtewmeowr teow eo reece ew eo mre meee mem mee ee etem mae Poe ee west mea woe eewrec = + 


"3 eiighiuaee entice oct aenhinnaniiamainiiidenatn 
ie RT EI Tt dona 
3 RST a nak Se a tens SERS 
3 {Unused __{PAGE_PROTECTION! _EVENTSW_PAGE_REF COUNT | 


aaeeeefoceesooesosoesos eeecceeecesesceces wee een eee e eoene + 


A pointer to an Event Page Descriptor is declared as follows: 
PAGEDESC: REF EVENTSPAGE_DESCRIPTOR 


Define the fields of the Event Page Descriptor. Also define the descriptor 


8 poee Descriptor address 


Page queue forward Link 


i Page queue backward Link 


! Page byte address 
Page referecne count 


& | Page old protection 


! Descriptor size (longwords) 


Sac (ibeGu 16 -REQ;1 
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The Free Memor 


routines are 


allocate memory blocks yf eo RS 
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E MEMORY MANAGEMENT 


thus yr Ae tare sonal ie teeeteed ellecete & = e > 
e- 
for ~ tatic Address Table en- 


tries, gee numerous other k nes of descriptors and Lopars The Free 


can aktanenia 


ger has two Kinds of blocks in 


free blocks 


blocks. The formats of both kinds of of < i and the over- 


att structure of the. memory pool is illustrated below. 


FORMAT OF A F 


The format of 


105658 


Frm oweesemnecee 


REE MEMORY BLOCK 
a free memory block is shown here: 


SES Tb oar es sso ooeressszi0 


weet¢e te ¢eeomoenenam weno oe ete seo mete Ree one eo m eee + 


: SENT iPiTi FMEMSV “LENGTH : 
NN a NN + 
; FMEMSL_FLINK H 
i FMEMSL_BLINK : 
howe necesen cane mmm ase SOK NK BOWE ETO KE TS ROE neem nD enone ETc ese es + 
! Unused 
pemiiesensnetansinetieoeismninapmenntiamnmen + 
: "FMEMSL _PREVLEN ' 
¢eeecwaocemce Senor enowrenae manasa cesrraonrsavreace Sonwewaenaewe cw nee n enone + 
Here SENT represents FMEMSB_SENTINEL, P is FMEMSV_PREVALLOC, and T is 
FMEMSV_THISALLOC as defined on the next page. 

A free block 


of the block 

mum sgnges of 
together on a 
is never allo 
free-list lis 


has its ‘oe th (in longwords) stored both at the beginning 
(FMEMSV_LENGTH) ond at the end (FMEMSL_PREVLEN). e mini- 
a tree” b co is four Lenguer s. Free blocks are chained 
doubly Linked ree-list. s list nes a list he which 
cated--the List is thus “sa. empty. The address of the 

t head is always stored in the ae. DBGSFREE tist. 
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FORMAT OF AN ALLOCATED MEMORY BLOCK 


The format of an allocated block is as follows: 


EU OSSSOSRORTOSESSOSERIESESESSL 


Geeweeeooooeooooe $e} eo} ececeeeeeeeee sees es eeeeseeecoeeeeoeocococeooes} 


0 } SENT iPiTi FMEMSV_LENGTH ' 


Pwemwweeeoooooon$}o}epoooeoecococececoccccescocecececcocecccocoes} 


FMEMSA_ALLOCBLK 


Mwy 


Aliocated Memory Area 


. 
* 
} ececcecccecceseece 


seer eeeeeeeeoeeeeeeee sees eeceeeeeeeeeesoeesseseeoees seeeoe eer3wrer enero 


Here SENT represents FMEMSB_SENTINEL, P is FMEMSV ed er ee and T is 
FMEMSV_THISALLOC as defined below. in an allo cated block, the address 
returned to the requestor is represented by FMEMSA _ALLOCBLK. 
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A pointer to a memory block (free or allocated) is declared as follows: 
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75 

r 

re BLKPTR: REF FMEMSBLOCK 

166 This declaration is used in the Free Memory Manager only. 

res 

re8 i Define the fields in the two kinds of memory blocks. 

768 FIELD 5 "i toy DEF = 

796 FMEMSV_LENGTH - V.(0,22) J,! The Length of the block in longwords 

771 FMEMSV— “THISALLOC= : vi (ge) 1. "Set to TRUE itt his block is pautocated 

4k FMEMSV_PREVALLOC= e Vi(23) i Set to TRUE he previous 

77 i sttocated ibtoth at me i. ar) 

774 FMEMSB_SENTINEL = 9. 83_ J). | Sentinel ya lue--al “eye, FMEMSK “SENTINEL 

775 FMEMSL_FLINK = oi. }: i Forward Link on free List 

776 crt “BLINK ={2,L i Backward Link on free lise 

77 FMEMSL-PREVLEN = (C€ -1, C_ 4, i Length of this free block relative to 

v8 i the start of the next block 

4 FMEMSA_ALLOCBLK = ( 1, A_ J, Address ney menor ‘Buse caller requesting 
mor oc 

781 FMEMSA_HEADER = [ -1, A_ ] i Address of block's header relative to 

y ¢ se i the FMEMSA  ALLOCBLK location 

7 oe 


fo bm 


w 
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H Declare the sentinel value and the declaration macro. 


LITERAL 
FMEMSK_SENTINEL = %x°B2'; 
checking on 


MACRO 
FMEMSBLOCK = BLOCKCL,LONG] FIELD(FMEMSFLD_DEF) 2%; 


VE3sdSouAde: toreue 


} j Beste sentinel athe for error 
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OVERALL STRUCTURE OF MEMORY POOL 


The memory pool consists of one or more memory pool areas. The first 
such area is initialized to have the format shown here: 


| 
PES ScSSS SRO ESESESSESESTESESSSSE | 


bowe rr eae ower neem ene menses eee ten meee see tem eee ee eon ee Es oewe sonnet} 


EEE RET SF 


Here longword 0 contains a pointer to the next memory pool area (for 

this initial area the pointer is always zero) and longword 1 contains 
the size of this area in bytes. These two fields are present for in- 
ternal error checking purposes only. 


Longwords 2 - 5 contain the free-list list head. This is a free block 
which is always at the start of the doubly Linked free List and which 
is never coalesced with any other free block 


FELELELES 


SOWOONOUES WOO 


Gc ; 

me ; 

RD : 

a ; 

: } } 

st 

; 4 i 

ot i 

Ee : 

: } 0 i Forward Link to next memory pool area H 

; te : Size in bytes of this memory pool area : | 
: 1810 i 2 4% — SENT 11103 4 | 
Z 1 3 1 8 ' beeen en aacnas th Dek Deh cet ete rrr rd 
; sig 0 3 ! FMEMSL_FLINK Hu 

: 1814 0 / 6 i FMEMSL_BL INK | 
3 : Teese mete eet eB eee BEB COMBE mers o emo s ee eon wmn meneame oem eo mere + } 
; 1818 Bea ee ee 4 | 
3 . 1 81 0 ' poem oce ne nacce see bet edo manoemnneoncannr ese ecemewmenwanaa ewan wvme ease oee eae at 
; 1818 0 as ee SENT 11:0: FMEMSV_LENGTH H 

3 1819 0 ' power er noo oes edt Al i Ee oo. 

: 1820 0 oe ae FMEMSL_FLINK ; 

3 1 B 1 0 ' $e ewe eoeae SG ROSE SOO ewe ED MMOS ewer samen eae nn me enone nwa e $ | 
185 P2y 8-3 FMEMSL_BL INK i | 
ie 8 ee ee | 
; 1825 0 : H ' 

; 1826 0 ee” Cs : 
oie ete ! | 
; 189 0 Be Free memory available for allocation 

$B Ee eesree | 
; 1832 0 , ew sf ' | 
; 1838 0 : ' ' 

; Ht 0 Bese 4 

e : HH 0 : ° eeecee —" EMEMSL PREVLEN See 2 e222 eee eee eee eeeaneaeea ° 

: 1837 0 i + Fa ere eeceeceaa noses Om ‘ 

e ¥ . we 4 SENT 10:1; 1 ' 

2 \37 ‘ a cama tat¢epPoweamwrsrarnoen rar earn encom e as Bens owteanmeoeo cose a + 

ae : 

coy : 

ae : 

s ¥ : 

a. | : 

‘9 : 

9 ; 

5 ; 

Borns ¥ : 

-o ; 

3 0 ; 


fe] 
uw 


ck=-the code thus never has 


coy ' fo worry about a {Peres ts” empty free List. The very last longword 

s 1 : n the ag pool area is the header of an allocated + et It pre- 

: 1 : vents any attempt to coalesce free blocks off the end of the area. 

: 618546 : The rest ty vise area (longword 6 AE. ” ~— to saee Be phe is ini- 
; ©1855 : tiall free block from Location gen 2. Paes Note 
ne $ : how the P Bengt flags CFMEMSY. “PREVAL LBC and FMEM$V MTATSAL oc). are set to 
3 : 2 : prevent free block coalescing of ther end of thé memory pool area. 

; 1859 i Additional memory pool areas may be acquired from LIBSGET_VM during the 
as. F : Debugger's initialization phase. Each such area is initialized to have 
; ©1861 ‘ the same + pg as the first one alhcent that the Freariiot List head is 
we. § } sbeaneenly ne is needed for the whole memory pool. The initial for- 
‘ | mat of each Y additional memory pool area is illustrated here: 

> 1865 

3 1 : 3 222 BRESR BBs se 

3 1867 } 1 3 § § é 6 g 4 ; g ¢ § 98765432109876543210 

: 1869 i Feeeeeeceeee eee ee eee eeeeeeeeeeeeeseeececoeseeseoesoscecesaceon eeeoeeaeaceoe + 

3 Hb fA } 0 Hl Forward Link to next memory pool area H 

: 187 9 gh ae Size in bytes of this memory pool area 

8 187 ' Ce ee ee ees ooo emer esoeame = eae r er reeesc sense ececes + 

3 1874 ee eet SENT 11103 FMEMSV_LENGTH : 

3 1875 ' teeeeew eon eens ee¢otoetoeamracaeran acon anos mame a =o seeeeceeooooeecon eo ee } 

; 1876 8 3 : FMEMSL_FLINK H 

: 1878 0 eae FMEMSL _BLINK ; 

3 1879 0 ' tore wmannoe Cena om merce i Sc ee Oe ee Be + 

; 1880 0 S ae H : 

; 1881 0 ! : ; 

3 1836 0 : : } 

i ibe OC 

: 1885 9 : ~f Free memory available for allocation 

; 1887 Bee Fie 
Pile $id : 

: 1891 i “e é eeeee (RO Ome em er ee ee ee wee ee em eee (Seow ce me oe ae oe mm mm oe em oe we te ee ome ts ee ee > 

. ¥ 4 0 , os : FMEMSL _PREVLEN : 

g 189 0 ' tween wren neme eeetof}ofooeeceoeesoen erecececeesoooecoeeccescoseso eoeecens> 

: 361894 8 ;) we : SENT 10:1 1 : 

3 1895 ' gor w we renee mesca tote Fee eee ee eee een erm enren now srene Someta scene eneoon + 


=$ep-1986 22:5 VAX=11 BLiss-32 v4.0 43 
1$-fen-1984 33:23:00 “S3ssenpaosscocavcc ene ipeciie.rea:1 29° c2$3 


eee 


15 
15-Sep-1984 22:59:57  VAN-11 Bliss-32 v4.0-742 feoo 4 
18-Sep-1984 33:23:00 “SSsbSp0Adescoeauc: sre ioeciie.rea;1 2% 26s 


TEMPORARY MEMORY BLOCKS 
i 
Bi pt & memory blocks are blocks which automatically are released 
1 at the end of the current command. Such blocks are allocated by a 
on8 special 0} Location routine (DBGSGET_TEMPMEM), but they do not have to 
be explic ey released to the memory pool. Instead one routine is 
called (DBGSREL _TEMPMEM) which automatically releases all ‘temporary’ 
905 blocks accumulated since the last such call. Temporary blocks have 
one the following format: 
$08 3 222 SREP ERE 
1 ; § j 5 6 g 4 é 5 ; ; 98765432109876543210 
Gewmmmoemnerommecoceeopyo}o fe reer meerermoecwoceeccrecercecace eweeroee me ese ae = oo 
6-4 SENT IPT! FMEMSV_LENGTH 
Gewooeeeooeeoooeoe} of} eof oeeeeeeeeeseeeeeeeeeeeseeceeeoeoeeooecocs oon24+ 
1 : Forward Link to next temporary memory block : 
se TEMPSENT wit FMEMSV_LENGTH ' 
bow neon eee wm eemoefpet¢cfoeneaseowm ena s waren ecce See wre nos own owes eeevecoeon + 
3 FMEMSA_ALLOCBLK 


Allocated Memory Area 


Doe oe wn ow wo we co eece 


eeeeceoeoeeo Se eee eee eneeaeae See ee See eenenean Seeeoeoeoeoeneonee owed 


Longword 0 is the same as for any other memory pool block. Longword 1 
contains a forward Link to the next block on the temporary block list. 
Longword 2 is similar to toneuere 0, but the length there is two less 

and the sentinel value is a different sentinel value (FMEMSK_TEMPSENT). 


Sr rena ana atau deaannb asa 
WN SO CONAOVESWN“OOOVNOUE WN O 


GOOCOCSCCOCOOSOSOSOSSSOSOSCSOOSCOSCOSDOOCOOOOOOOOOOOCOOOOOCOO 


Ww 
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eer 


Define the distinguishing sentinel value for ‘temporary’ memory blocks. 


ITERAL 
FMEMSK_TEMPSENT = 2X'B4'; ! Sentinel value in longword 2 
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: ! § : IMAGE FILE HEADER DEFINITIONS 
REE 

; Hb 4 J i The executable image file header block contains a pointer in ; fixed 

ne : Location which points to a small block later in the header which giye* 
:; 196 : the size and location of the Debug Symbol Table (DST) and the Global 

; | «6196 : Symbol Table (GST). The first part of the executable image file header 
: 13 : : looks as follows: 

; 19 § 11411111117 

3 1954 RES OSESSOSOCIOSOSCCSEL TESTS TE 

$ 13er ' Frew eee e eee eee ee ee ee ee eee eee eee ¢ ee eeeeeeeeeoeeeeooosoeoococeso=s} 

3 1959 Ey 189) : 1HDSW_SYMDBGOF F : 

> 1961 fag kee 2 ae 

H 1208 : : ' 

>; 46196 [we : : 

3 1964 ' Gewmeeeroeeoreeoooeooooooeseooooc oo eeoecoeeeeeee cece eoooooooeoeo=} 

; 129? : 

; 196? i 

; 1968 } Here IHD$W_SYMDBGOFF contains the byte offset relative to the start of 
: 1993 H the header of an Image Header Symbol Table descriptor. 

: (1971 i 

3 137% : 

: A : IMAGE HEADER SYMBOL TABLE DESCRIPTOR 

> 1975 i 

3 1978 : The Image Header Symbol Table Descriptor (IHS) poceees to by the 

; 137 : IHD$W_SYMDBGOFF field in the header has the following format: 

; 1379 | 3 222 BSS EBBSate 

; 133) : 1 3 4 ; : 6 : 4 ; 5 ; § 98765432109876543210 

: 1983 i Oem ere meme wren w new nnn nnn wn ne nen nnn nen n ene n eee ooo --+ 

: 1984 .- 8-9 IHS$L_DSTVBN : 

: 1985 ! $ erm mre meee ween wenn wwe e sewn owen nennen- were renee nee ene- --+ 

; 1986 1 H JHSS$L_GSTVBN : 

; 1238 Ta oe IHS$W_GSTRECS : IHS$W_DSTBLKS } 

: 198 i ey SST 

; 13 3 : IHS$L_DMTVBN ; 

3 1998 i 4 i IHSS$L_DMTBYTES i 
199% i 

3 Hb a 

; 1999 i Here IHS$W_DSTBLKS and IHS$L_DSTVBN give the size (in blocks) and loca- 
; 1998 : tion (Virtual Block Number) Of the Debug Symbol Table (DST) within the 
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eet pe AS we file. The fields IHS$w gsTagcs and IHSSL_GSTVBN give 
records? and start Locat rtual Bioc ock Number) of 

the global Synbol (GST). netly. the fields 44 L tvircuat and 

IHSSL_DMTVBN give the size : bytes) gre store qeqets on Tvirtua Heck 

Number) of the Debug Module Table (DMT). The DMT describ wt ig 

These field names are declared by macros in SYSSLIBRARY:L1B.L52. 


' 

' 

' 

' 

' 

' 

' 

; The s L_ IHDSW ey ooh is defined in SYSSLIBRARY:LI8.L32 and is 
: there ore not defined here. A pointer to the image file header is 
: declared as follows: 
' 

' 

‘ 

' 

' 

' 

' 

' 

' 


>. 
+ 


IHDPTR: REF BLOCKC,BYTE) 
A pointer to the image header symbol descriptor is declared like this: 
IHSPTR: REF IHSSENTRY 


i Define the IHSSENTRY macro. 
MACRO 


Be Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se SH Ge Ge Se Ge Ge Ge Ge 


JHSSENTRY = BLOCKCIHSSK_LENGTH,BYTE) %; ! IHSSK_LENGTH is def ineg in 
i SYSSLIBRARY:L1B.L32 


en 
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IMAGE FILE DEBUG MODULE TABLE 


The | File Header in executable jnage file points . ane ¢ inep 

He rs t Teele e descriptor as d aere et: f, 

1HD fl FLA 7 n the 7 header et sa oo imag eta 

one produ oduced by the e VMS V2.0 of tater { Mek and the IHSSt DM and 
Hs DMIBYTES fields exist in the i mage He Header $ abol Tablé descriptor. 
If bit 5 is not set, mse is an ‘‘o ¢ mage and those fields do not 

exist.) If non-zero, IHSSL_DMTVBN -f ves the Virtual Block DwPBYTE i 

the file of the Debug mayo able (the D ees IHS 

then gives the size of pus DMT in bytes. The D 


user did a LINK/DEBUG; if he did not, IHSSL oe and anty guile Cer it the 
ere zero. 


Debug Module Tees 


contains one entr r module in the Deb 
Symbol Table (the D This ‘s Ue ay te 


the format of each such DMT entry: 


ET SSESSPACETOSSCSOSOR TEST SOLS 


te mew wm er ow ew ewe esr emcee mem ware ewe m were meee cere ee eee se ee ewe ween wn} 


: DST address of Module Begin DST Record H 


Peewee ee ee eee eee ee ee ee ee eee eee ee ee eee eee ee eeeeeeeeeeeeeeeooocooecn} 


} Size in bytes of module's DST : 


terre mere eee em emo eee meme en ee eet CO ewe weno ee ee Bee me ewe meee ty 


0 
1 
ie Number of PSECTs for this module H 
3 
4 


le 
1). 


tro ewe enna mn wre re eo ce He See BOB OMe Dwmem ow ere ete se sees eee} 


: Start address of first PSECT in module : 


¢eeeeeeeeeeeoeoeooeoeeeoeeseeeeoeeoeeoeeeeoeeeeeececeeces eeeoeoeo nmoaere } 


} Length of first PSECT in module in bytes : 


ween enema meanr ero m ae reemreroceo a teem eeeoeoe See ee ee eeeeeeneneeneae wees} 


(Two longwords per PSECT) 


Sweet teres meee ew mmm renew cme mom mmr re me mere een ere mmm mmr em ewe wore = > 


Start address of last PSECT in module H 


See err on eo TO BOBO woeMece Beet or er ee mB ee Bee ee cw eS wer w oem wrens ewm mere eon ae + 


Length of Last PSECT in module in bytes : 


eros 


oo } oo } coceesceces 


Longword 0 gives the address relative to the start of the DST of the 

Module Begin DST Recere for this module. Longword 1 gives the size 

of the DST in bytes for the same module. Longword 2 gives the number 

- PSEcTs in the module (i.e he number of Stat cally allocated 
progres Teh give. and this is followed by thet umber of two-longword 

perce rs which give the start address and Length ztes? of each such 

Since the number of PSECTs cannot aki "6 . the upper two 
ee “of longword 2 are available for future expansion. 


The DMT is used during DEBUG initialization to initialize the RST and 


ux: Seo-198s 23:58:67 VANSTL BLIgSC Bz WE O=742 se aca, P20" sf 


the Program Static Address Table. spe a {3 much ta i nes 
the ate native ded, inforns ton.” f areven gat) DST to 
pick up t The: nfornat on gncry is 
to's € mas TE Entry fo or gech nodule” a and t 
PSECT informat en is used to buil e- 

symbol table space needed per modu ute ts — : xX the DMP in- 
nope os | is estimated. by mult plying the T size of each module 
by an appropriate scale factor. 


1brhenct9ee 22:59:57 VaN=dy BLfger SZ WeO=72 a 
LEAST RECENTLY USED MODULE TABLE 


The Least von pee 2 He sy g tt RUM) ¢t info at ey of the Least 
Recently Used module in the ag . _this . ol ae to select 
modules to be removed from the RST wh 7 he od lt is ful 
and new spa ace must be created by releas Hy RST Tentriss: The LRUM 
table is built maintained by the DBG ateceN ODuLE rout ine in 
ACCES nang | iY sseeees by fous tne DEG GET AE when memory 


space must released Oy fone ving the Least Recencly | y Used module. 
Routine DBGSRST_INIT builds the initial LRUM List head. 


a. LRUM ote  B seperate ¢ of a doubly Linked List of LRUM entries. gin 
st aT and one entry per module currently in the 

the. address of the List head 7 Wy. by the global LRUMSLISTHEAD. 

The format of the individual LRUA entry is show here: 


TOS EF ES ESSE Soares Ls zi ooe7eseszr0 


fa mero eee newer en nom eer men aewnon eae SSSSSSSSSSSSSSSSSSS“SSS“SSSSSS“OS“S“OSOSQOSOS + 


0: LRUMSL_FLINK : 
3 LRUMSL_BL INK : 
2} LRUMSL_RSTPTR ; 


et 


at a se a ss a a ss 


A pointer to a Least Recently Used Module entry is declared as follows: 
LRUMPTR: REF LRUMSENTRY 


Define the fields in the Least Recently Used Module entry. Also define the 
entry size and the declaration macro. 


FIELD saat; ate DEF = 


: 
| 


LRUMSL_FLI = 9. Le ' The LRUM chain forward Link 
‘ LRUMSL_BL INK = a oe ' The , RUA chain backward Link 
§ LOUNSL AS TPTR ={ 2, L- ! A pointer to the Module RST Entry 
5 LITERAL 
LRUMSENTSIZE = 3; ! The lLongword size of the LRUM entry 


ee cee ec ee ce ee ce ee ee ce ee) a ee ee ce eel el ee el ee ee a aD ed ed 


MACRO 


Be Se Se Se Se Se Se Se Se Be Be Se Ge Ge Se Se Se Se Se Ge Fe Fe Se Se Ge Se Ge Se Ge Ge SH Se Se Se Se Se Se Ge Se Se Se Se Se Ge Ge Se G+ Ge Se Se Se Ge Ge 


LRUMSENTRY = BLOCKCL,LONG) FIELD(LRUMSFLD_DEF) 2; ! Declaration macro 


a a a ee -_—_—-- — 


ar ee te ce ee re sf 
LEXICAL SCANNER CHARACTER TABLE 


The Lestcot brannee n gives borer at. CAL_ SCANNER) operates os 
sperecter 7, gtch 8 lex aforastion s oo a ASCII 
chprecter. in orsation on cons ‘sts of b if Toeoss? 


— ues whi h charact “ee the character from the Lex cal Scanner's 
point Fe. v ndicate whether a given character can be part 
fet “ a numeric constent, an geereee’ or watever, 
pe BL "Weous | is thus a vector of 256 elements, indexed by 
My tH. ores car code, where each element contains the informa- 


Cited iee ie tet et ed et ee 


He here. 
: A Lexical Scanner Character Table is declared as follows: 
CHARTBL: CHRTBLSTABLE 
29 Define the fields of the Character Table element. Also define the 
eg declaration macro. 
o7 FIELD CHRTRLSFLO DEF = 
65 CHRTBLSV_IDENT_START = » V.(0) J, ! Identifier start character 
$6 HRTBLSV~ ioent “MIDDLE = » V.(1) J, ! Identifier middle character 
6 HRTBLSV~ IDENT" END = ° Vv. (¢) . | Identifier end character 
68 CHRTBLSV_NUMBER_START = 8. v-(3) ! Number start character 
$ CHRTBLSY “NUMBER tLass = (0, vi4,44, i Manet fags constant character 
rt CHRTBLSV_ALPHABETIC = ° V.(8} }: ! Alpha character (A-2) 
i; CHRTBLSV_DIGIT = » V09) } quaer ¢ " 
7 CHRTBLSV_STRING_ QUOTE = - V0) J,! § — quote character 
74 CHRTBLSV_OPCHAR 2 » V.411) J,! Oper ator character 
75 CHRTBLSV_OPCHAR_PREFIX = ° Va (1¢) -! Operator prefix character 
a CHRTBLSV_OPCHAR_INFIX = « V.033) J.! Operator infix character 
7 CHRTBLSV_OPCHAR POSTFIX = « V.414) J,! Operator postfix character 
8 CHRTBLSV_ADDRESS_OP 2 » V-(15) J,! Address Expression 6 operator 
CHRTBLSV_SPECIAL_SYMBOL = e V~(16) o! Special DE symbol (. \ “*) 
CHRTBLSV_SPACE = « V.C17) J,! Space or Tab aie 
1 CHRTBLSV_ TERMINATOR = ° v_(18) o: May start Terminator Token 
CHRTBLSV_SPECIAL CASE = » V9) J,! Spec tat case in lex scanner 
cua TeLst E_ERTRY = »ie a ! The whole entry for a char. 


MACRO 
CHRTBLSTABLE = BLOCKVECTOR(256,1,LONG) FIELO(CHRTBLSFLD_DEF) 2%; 


' Define mask values for alt the bits in the Character Table element. These 


Be Se Se Se Se Se Be Se Se Se Se Se Ge Se Se Se Se Ge Ge Se Ge Se Se Se Se Fe Se Se Ge Ge Ge Se Ge Se Ge Se Se Se Se Ge Ge Se Se Se Bs Ge Se Ge Ge Ge Ge Ge Se Se Se Gs Ge 


ee ee ee ee ee ee ee ee ee ed ed od wd dd 


; : values are used to initialize Character Table elements. 

38 LITERAL 

94 CHRTBLSA a = fF : ts set 

95 CHRIBL SAT IDENT s 194° ! We bits se start character 
96 CHRTBLSM_ IDENT “ALDDLE = i Identifier middle character 
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Note that the epee yote pees of the CHRTBLSV_NUMBER Flas ftete are defined 
under the description oft Number Scanner State Table. ey are the same 
values as are allo ite n oe NUMST$B_CHAR “CLASS. field and in r names all 
have the form NUMST 


3 HRT NT_END = 1*2, ! Identifier end gher 

3 WATBE ~ DENT OANY RE = ha . | ryeere in an | dent fier 

; WRIBLSACALPHABETICN. = ]"B. i Ate bette norecter (AZ) 
; * = 1°83, ! ° aracter (A= 

; HRTBL -bicit = 4°8, i wupeete aight coe) 

: HRTBLSM_STRING QUOTE = 1°10, ! Str Ing. A. e sherentet 

3 HRTBLSM_OPCHAR = 1°11, ! Operator chee cter 

3 HRTBLSA | we = 1*12, ! Seereser er efts x character 

3 HRTBLSA_ wan iie IK = 1°15, ! Operator in | character 

3 HRTBLSM_OPCHAR POSTFIX = Vale ! Operator post + character 

3 HRTBLSM_ADDRESS_OP = 1°15, : Address Expression operator 
3 HRTBLSA_ pie AL_SYMBOL = 1.18: ! Special DE symbol (. \ *) 
3 HRTBLSM_SPA = 1°17, ! Space or tab character 

3 HRTBLSM_TERMINATOR = est ! May stort terminator token 

; HRTBLSM_SPECIAL_CASE = 1°19; ! Special case in lexicai scanner 


CLASS_xxx. 


Bo Ge Se Se Se Ge Se Se Se Ge Se Ge Se Se Se Ss Se Be Ge Ge Se Ge Se Ge Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Se Se Ss Se Se Se Se Gs Ge Ge Ge Se Se Ge Ge ee 


‘ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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LEXICAL TOKEN ENTRY 


icn Panguase Token Entei aves ores nN predefined tables spec- 
Lert By Be while rand Token Entries 

ft bu it “ts ne ab ca oe (OBGS + XICAL_SC T 

ormat of a Lexical de Ss on the k f Token Snery it 

is, but ait Lexical Token ate es have this hin ormat: 


SESOSSSOSSOLTOSESSSSELIOSTSSSSE 


H TOKENSW_ CODE t TOKENSB_FLAGS | TOKENSB_KIND 


Geoocoeceececcceesoccesescecccce | tes tee i enenennatiemannill te 


salted = Entry _ is eoperee d by the Lex teat oe mo ag time it 


Additional fields depending on the Token Entry kind 


pw own nme nen emer wm enone manne tee ero nm mee eco see er etree wes ee swam mee nay 


A pointer to a Lexical Token Entry is defined as follows: 
TOKENPTR: REF TOKENSENTRY 


i Define the fields of the Lexical Token Entry. 
FIELD TOKENSFLD_DEF = 
SET 


TOKENSB_KIND - B0_ ' Token kind 
TOKENSB FLAGS ; BI ! Token aatey flag bits 
TOKENSVPRIMARY » vizK 1,/ Token is Primary Symbol operator 
(used in Operator entries only) 
TOKENSV_LEXICAL = C 0, vi_(1) J, Token ¥3 o lexical epqreter ty (used 
! erator qate es only 
TOKENSV_SGNEXT = [( 0, vi_(2) J,! 


in 
Sign extensions X<P,S,E> “operat ion 


jused n Operator Lex cal Token 


; r fhe » “select operation) 
TOKENGY_DALANCED, PORENS ; ieken” s rere nator Token only if 
=C 0, vi_(0) J,! gerents eses are balanced 


1 
' 
' 
' 
' 
; ‘ysed in Terminator onte toy only? 
TOKENSV_AUST _BE_SINGLE ' Token Terminator Token only i 3 
= (0, vi_(1) J,! character is not followed by it- 
‘ pd (: is term but not ::) 
‘ (used in Terminator entries opty? 
' Argument ates foliows this Ada tick 
vi. ( ; 3.3 opera 
: Operand or ‘operator code for token 
' Built-in Function Code 
! Length of operand name in bytes 


TOKENSV_ARGUMENT_LIST 

= — 
TOKENSW_CODE = 0: 
TOKENSB-BIF 7 oF 
TOKENSB-LENGTH = [ 2. B 


i 
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13-50 ep-1 759: VAX-11 BLi srie V4.0-74 f 3 
Bep- 1986 38:23:00 “SS5SSDUASBsCoFaUG.¢ReJoecLIB.Rea:1 *9 33), 
! Operand name in ASCII | 
. Operator's Right Precedence 

! Operator’ site Lei t Precedence 

Sub-code 

Offset P in X<P,S,E> operation 

! Length S$ in X<P,S,E> operation 


! Length of epereser name in bytes 
! Operator name in ASCII 


TOKENSA_NAME = C 2, AT_ 
TOKENSB_R_PREC =f: 1.8 


— 
~ 
_ 


+x + + 

TOK NSW_ Sener a 
TOKENSW_BIT “LENGTH. - 
formas = EH 


cow 
= 
| 
Sa) 
see 
acace 


2, wo. J, 


a a 
st 
.. 
ome 


LITERAL 


TOKENSK_ENTSIZE = 2, Size of ba é gore of an Operand 


1 
i Len! oken Entry 
TOKENSK_ENTSIZE_OPERATOR = 3; ! Size o fixed pert of an "Operator 
! Lexical Token Entry 
MACRO 
TOKENSENTRY = BLOCKC, LONG) FIELD(TOKENSFLD_DEF) 2%; ! Declaration macro 


! Define the valid values of the TOKENSB_KIND field. This field indicates 
what kind of token this is. 


LITERAL 
_OPERAND = 1,  ! Operand 
TOKENSK_PREF IX_OP = ¢- : Prefix Operator 
TOKENSK_ INF IX_OP = 5, ' Infix Operator 
TOKENSK—POSTFIX_OP = 4: | Postfix Operator 


: Define mask values for the bits in the TOKENSB_FLAGS field. 


LITERAL 
TOKENSM ati = 1°00, ! Token is Primary Symbol operator 
TOKENSM_LEXICA’ = 1*°1, | Token is lexica operator 
TOKENSM “BALANCED PARENS = 1°0, | Terminator requires balanced parens 
TOKENSM_MUST_BE_SINGLE = 1°1; ! Terminator character must be single 


Be Bo Se Se Se Se Se Se Se He Se Se Se Se Se Se Se Fe Se Ge Ge Be Se Hs Ge we Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH Se Se Se Ge Se Se Ge Ge Se SH Ge Ge Cr) 


i Define the valid values of the TOKENSW_CODE field for operands. 
! says what kind of operand this Token Entry represents. 


15 
OPERAND LEXICAL TOKEN ENTRY 


Operands are identifiers, numeric constants B a or character 
gonstents. or special constructs such as %LINE nnn which generate 
dentifiers. e Lexical Token Entry for an operand has the fol- 
lowing format: 


EL OSSSOCRORIOSESSSSOLI ES ESSTS 


Feemeeororeeoooeeeecoeeooooooceceos ¢oeeeeeseseseoes }oeceecocooocooecan} 


i TOKENSW_CODE + TOKENSB_FLAGS { TOKENSB_KIND 


Geweeweoeoeeooocoecooeoooesooocosos ¢oeceeeoceocooooos $oeoeooeooocoooon} 


i Unused : TOKENSB_BIF H 
TOKENSA_NAME i TOKENS _LENGTH: 
(Operand name in Counted ASCII) 


(Includes TOKENSB_LENGTH and TOKENSA_NAME fields) 


} ccccccescccccs 


} cocccecese 


IND field o 


The TOKENSB_K ld of 
TOKENSK_OPERAND. 


the value 


1grSeoctgse 23:58:57 vay 


an Operand Lexical Token Entry always has 


This field | 


--- Minimum value for TOKENSW_CODE 


“11 Bliss-32 v4.0-74 p 
SSEDUAIE CbeONG. sReioeGLie.reo:? °° seh 


TOKENSKIIDERTIFIER. 5 ee Identifie 

= 1, ! Ide r 
TOKENSK_ STRING 2 ¢ ! Character String Constant 
Reece ferceeres Sf: | tate theneeen fama 

= 4, ! Integer an 

TOKENSK_HEX INTEGER = 5, ! Hexa qcimal Integer Constant 
TOKENSK— FLOATING : g. ! Floating Point Constant 
TOKENSK_EXP_E_FLOAT = 7, ! Floating Constant with E Exponent 
ENTE Ee par LOAT = g. ! Floating Constant with D Exponent 
TOKENSK_EXP_Q FLOAT = ! Floating Constant with Q@ Exponent 
TOKENSK—BIN_IRTEGER = 16, i Binary Constant 
ieee iocenee” Ui: | feel coetan 
TOKENSK~61T STRING = 18° i Bit String Constant (as in PL/I) 
TOKENSK_PACR_DECIMAL = 14, ! Packed Decimal Constant 
IESE BticbtPhtcruns 1g; | STE fanettn with & Fxponen 
TOKENSK~MAX_OPERAND 16; | === Maximum value for TOKENSW_CODE 


16 
13-50-1986 22:59:57  VAX-11 Bliss-32 vé.0-762 ° 5 
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OPERATOR LEXICAL TOKEN ENTRY 


The Lexical Token Entry for an operator contains additional infor- 
mation not needed for operands memete the left and right prece- 
dences of the operator. This is the format of an Operator Lexical 


NOUS WIN—O 


Token Entry: 


PES ESESSCAO ET OSESSSSOR SESE SESS 


SJato eon 


. ! 

4 i 

AME 

: i 

> i 

4 i 

: i 

4 : i 

4 i 

: i 

: i 

: ae 

; : 

. ' 

; 6 8 i TOKENSW_CODE | _TOKENSB_FLAGS } TOKENSB_KIND 

; $59 8 1 H TOKENSW_SUBCODE i TOKENSB_L_PREC i TOKENSB_R_PREC ; 

; 88 0 ot ze TOKENSW_BIT_LENGTH TOKENSW_BIT_OFFSET 

3 89 0 ' Geosenreomunee = weoewreee wm enronestonwe¢ooaes enmecwmaaeaea Ferner er ereconen = $ 

; sa 4 } 3 TOKENSA_OPNAME H TOKENSB_OPLEN H 

; 3 _ (Operator name string in Counted ASCII) 

: 33% 0: (Includes TOKENSB_OPLEN and TOKENSA_OPNAME fields) 

; i | | 

: 336 8 i oy. tee woe moore wart er eee meme ener e cot eee ee ee eee Sea neers eee reese + 
oe 

: 2400 ¢ i 

5 401 4 : The TOKENSB_KIND field of an Operator Lexical Token Entr piveze 

; 40 ; has_one of the three values TOKENSK_PREFIX_OP, TOKENSK_INFIX_OP, 

3 ret 8 } or TOKENSK_POSTFIX_OP. 

: 2405 0 i 

3 vty 4 : Define some size literals used for allocating memory. 

:; 2608 0 LITERAL 

3 409 0 TOKENSK_FIXED_SIZE_BYTE = 13, ! Fixed size (not including 
; 410 0 ! the name) of an operator 

; 411 0 ! token. Actual size in 

; o16 0 ' bytes is this value plus 

; 41 ' the OPLEN field. d 

3 414 TOKENSK _FIXED_SIZE_LONG = 4; ! Fixed size (not including 
3 415 0 ' the name) of an operator 

; 218 0 ! token. Actual size in 

; 4) 3 ' Longwords is this value 

3 218 ! plus OPLEN / 4. 

an 

; 421 ! Define the valid values of the TOKENSW_CODE field for operators. This field 
; 4 § ! indicates which operation is to be performed. Not all languages allow all 
; & ! operators, but all operators allowed in at least one Lenguage are listed in 
: 424 ! this table. Note that the same operator may be represented differently in 
; 425 ! different languages--thus ‘’="" and "’.£Q."' are both considered to be the same 
; 426 0 ! comparison operator. 


ViFWn—OOOe~n 


SOOOCOOOSOOOOCOSOCOOOS OOOO OOOO SCOOOCSCSOCOCCCOOOCOOCOOCOCOSCOOOOOOCOoOO 


' 
LITERAL 


LITERAL 


TOKENSK_MIN_PRIMARY_OP = 


TOKENSK_PRIMARY_TERM 
TOKENSK_ GLOBAL _ SLASH 
TOKENSK_BACKSLASH 


TOKENSK_SUBSCRIPT 
TOKENSK~DOT 


TOKENSK_ COBOL _OF 
TOKENSK_PASCAL_DEREF 
TOKENSK_PLI_DEREF 
TOKENSK_INVOCNUM 


TOKENSK"BIF_OP 
TOKENSK~ADA~TICK 


TOKENSK_MAX_PRIMARY_OP 


TOKENSK_MIN_OPERATOR 


TOKENSK_INITIATOR 
TOKENSK TERMINATOR 


TORENSK _UNARY AINUS 


TOKENSK— 
TOKENSK~ SUBTRACT 
TOKENSK “MULTIPLY 
TOKENSK DIVIDE 
TOKENSK~POWER_OF 
TOKENSK~OPENPAREN 
TOENSK”CLOSEPAREN 


ENSK-LSS_ EQUAL 
“LSS_EQUAL_U 
NOT 


5 


_AND 
“OR 


- —--—90O @ NN Oo WS WRN 


—- => 


Ronorononononononony 3 2 2 2 BD OMNOUSWN 


. ss — * 


DONO SW @ CO OOO USUWIN Ore 2+ + 5 8 8 8 & 8 


ese @seeeeseessstss8s es: 8s &® &® &©& &® &© @& @& 


16 
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=== Minimum value of TOKENSW_CODE 

--- for Primary Symbol operators 

Terminator operator for primary 

Prefix backslash for GST scope (\X) 

Infix Becstos® for petnnene qualifi- 
eee on (EXAM M\R\X) 

Subscript open gerentheste operator 

Infix data qualification operator 
as in A.B(2).C in PL/ 

Infix care gues fication operator 
as in C OF B OF A(2) in COBOL 

Postfix dereference operator such as 
“ in PASCAL (as in P*.xX) 

Infix dereference operator such as 
=> in PL/I (as in P=>x) 

Invocation Number operator 

Built-in Function (parameter List) 

The ADA tick operator for symbol 
attribute qualification. 

--- Maximum value for TOKENSW_CODE 

--- for Primary Symbol operators 


--- Minimum value for TOKENSW_CODE 
--- for language expression operators 
Expression initiator pseudo-operator 
Expression terminator pseudo-operator 
Indirection operator (prefix . or @) 
Unary plus operator (+A) 

Unary minus operator (-A) 

Addition operator (A+B) 

Subtraction operator (A-8) 

mye § tes Seat ten operator (A*B) 
Division operator (A/B) 
Exponentiation operator (A**B) | 
7 expression parenthesis ‘'(' 

Close expression parenthesis ‘')"' 

Equal comparison operator 

Not equal comparison operator 

Greater than comparison operator 

qs tgnes Greater than comparison operator 

Greater than or equal comparison oper. 

Unsigned Greater than or equal to comparison operator 
Less than comparison operator 

Unsigned Less than comparison operator 

hese than or equal comparison oper. 

Unsigned Less than or equal comparison operator 
Boolean NOT operator 

Boolean AND operator 

Boolean OR operator 

Boolean XOR (exclusive OR) operator 

Boolean EQvV i valence) operator 

Short-circuited boolean AND operator 

Short-circuited boolean OR operator 
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--- for language expression Operators 


Define the possible values for the TOKENSK_SUBCODE field. 
This field ts used to store additional information about the operator. 
At present the one use of this field is for the ADA attribute operators. 
For these, the TOKENSW_CODE Hiel¢ contains ‘‘TOKENSK_ADA_TICK*’ and the 
sybcode Held identifiés which tic 

- etc. 
The reason for doing it this way is because there may be a large number 
of tick operators, all of which are treated the same for purposes of 
operator precedence parsing. Tables thus are smaller if t 
one code for “‘tick’’ and a subcode for each tick operator. 


La 
tam —OOC> 


k operator is present (‘FIRST”, 


SHIGE 


ere is only 


3 4 TOKENSK_BIT_NOT = 9. ! Bitwise NOT operator 

; 485 TOKENSK_BIT_AND = 31, ! Bitwise AND operator 

; 4 TOKENSK_BIT_OR = ¢ ! Bitwise OR operator 

3 4 TOKENSK_BIT_XOR = 35, |! Bitwise XOR operator 

: 4 TOKENSK_BIT_EQvV = 34, ! Bitwise EQV operator 

a: WSandecnowinue™s"® = 42° | atsung cepeetentin 

; e ss, } ulus operator 

3 49 TOKENSK_REMAINDER 2 . : Rensinder operstor 

; 4&9 TOKENSK_LEFT SHIFT = 38, ! Left shift operator 

; TOKENSK_RIGHT SHIFT = 39, ! Right shift operator 

3 94 TOKENSK_ADDRESS_OF = 40, ! Address-of operator (as in C) 

3 TOKENSK_S1ZEOF = 41, ! Size-of operator (as in C) 

; TOKENSK_SET_ MEMBER = t$° ! Set membership operator 

: TOKENSK_ABSOLUTE = 45, ! Absolute value operator 

5 TOKENSK_ INF IX_NOT = 44, ! Lexical operator (as_ in COBOL's NOT =) 

3 499 TOKENSK_ SUCCESSOR = 45, ! Successor operator (BIF) 

3 rs yr teeneanees = $6 pv eccqeeear operator (BIF) 

; ! Unuse = 47, ! Unuse 

3 25 TOKENSK_INT_DIVIDE = 48, ! Lexical operator for integer divide 

; 5035 0 ! Cin PASCAL, A DIV B must Be 

5 504 8 ! distiguished from A / B) 

3 505 TOKENSK_BITSELECT = ! Bit selection in BLISS and address 

; 506 0 , expressions (<pos,size,ext>) 

5 507 0 TOKENSK_DEPOSIT = ! = for Deposit Command ( acting as 

3 508 0 ° Lan dependent assignment ) 

3 509 0 TOKENSK_CONVERT = ! Used as to indicate subscript 

3 510 0 : conversion operator 

; 511 0 TOKENSK_RADIX_DEC = 2g. ! Set current radix to decimal 

; 21g 0 TOKENSK_RADIX_HEX = 535, |! Set current radix to hexadecimal 

$ 51 8 TOKENSK_RADIX_OCT = 54, ! Set current radix to octal 

: 514 TOKENSK_RADIX BI = 55, ! Set current radix to binary 

; gz TORENSK IDENTITY = 2. } ident itty eperator 

g “ = 57, ! Set constant open 

3 219 0 TOKENSK_BIT_I = 58, ! Bitwise IMP Tapl ication) operator 

3 518 0 TOKENSK_PRE_INCR = 59, ! Pre-increment (++X) 

3 Hh 8 roxeNe Post NCR : 60. post=tncrenent (hes) 

3 a = 61, ! Pre-decrement (-- 

3 354 0 ENSK_POST_DECR = 6¢. ! Post-decrement (X--) 

3 5 ; 0 TOKENSK_PREFIX_GTR = 63,  ! Prefix > as in COBOL, ie. NOT > 

; 5 TOKENSK_PREF IX_LSS = 64, ! Prefix < as in COBOL, ie. NOT < 

3 524 ENSK_PREF IX EQL = 65, ! Prefix = as in COBOL, ie. NOT = 

: 252 TOKENSK_NEGCONST = 66. ! Negative constant 

3 5 $ 0 TOKENSK_POSCONST = 67, ! Positive constant 

; NSK_MAX_ A = 6/; ! ©=- Maximum value o NSW_COD 
2 TOKENSK_MAX_OPERATOR 67 } Maxi l f TOKENSW_CODE 

3 5 

5 5 

3 5 

; 5 

3 5 

3 5 

; 5 

; 5 

; 5 

: 5 

; 5 

; 5 


ts 
o 


——— eee 
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3 LITERAL 

; ‘3 TOKENSK_TICK_MIN = 1, 
3 4 Ne} CK <fONSTRAINEDS . 
3 4 OnENSK ~ Tick FIRS : 
3 4 OKENSK_TICK_LA ef = 3, 
3 4 OKENSK_T cK te ENGTH = 4, 
$ 4 OKENSK-TICK_POS = 5, 
; TOKENSK- =f ICR PRED = g. 
; ad eh SIZE = 7, 
; OKENSK_TICK-SUCC = 8. 
3 § TOKENSK “TIER “VAL = 9, 
3 4 TOKENSK_TICK_MAX = 9; 


7 


PUPS 


Shot pn oe 


Soe Sooo 
ww 


SRS Ssseseaesses 


SeesSR 


aon 


so 
-—o 


which, if set, indicates that this token ac 


a 
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TERMINATOR LEXICAL TOKEN ENTRY 


Terminators are lexical tokens which mark the end of an expression. 
For example, in subscr ist express igre ","" and *')"' mark the ends of 
the express {ons as in “ARR(K+2, 1#3-45"'." Similarly, in the command 
SET BREAK X#4 DO(...), the keyword ‘DO"’ marks the end of the expres- 
sion as long as it does not appear within parentheses. Terminator 
Lexical Token Entries define tokens which act as expression termina- 
tors in specified contexts. The Terminator Lexical Token Entry has 
the following format: 


ES OSSSSPRE LS ESESSOSER TEST SSESE, 


: TOKENSW_CODE | TOKENSB_FLAGS | TOKENSB_KIND : 
: unused H 


TOKENSA_NAME { TOKENSB_LENGTH! 


ee an a ee me f 


+< 
(Terminator name in Counted ASCII) 
(Includes TOKENSB_LENGTH and TOKENSA_NAME fields) 


} cccccecccccccs 


The TOKENSB_KIND field of a Terminator Lexical Token Entry always has 
the value zero (0). 


The TOKENSB_FLAGS field can contain the flag TOKENSV_BALANCED_PARENS 
S aS a terminator only 

if parentheses are balanced when it is encountered. for example 

"*)"* terminates a subscript expression only the subscript expression's 

parentheses are balanced so far. Similarly, 00 terminates the ad- 

dess expression in SET BREAK expr DO ... only if it is not enclosed 

in parentheses; otherwise there would be no Soy to include the ident- 

ifier "DO"’ (as allowed in many Languages) in the address expression. 


Define the valid values of the TOKENSW_CODE field for terminators. This 
field says what kind of terminator this Token Entry represents. 


ENSK_MIN TERMINATOR = 0, ! === Minimum value for TOKENSW_CODE 
TOKENSK~ TERA_NONE = 0, ! No terminator (just end of Life) 
TOKENSK _TERM_ COMMA = 1, : Comma", lil a 
TOKENSK_TERM_CLOSE = ¢: : Close paren or bracket (°")"’ or *')"') 
TOKENSK_TERM_ COLON wo | foe’ 

TOKENSK_TERM_EQUAL = 4, ! Equal sign “= 


2 P 
JDBGL1IB.REQ;1 
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3 61 TOKENSK_TERM_DO = 5, ! DO keyword ** (as in SET BREAK) 

3 $8 TOKENSK_TERM_ THEN - g. ! THEN eyuord THEN (a " IF = THEN) 

s = ¢614 TOKENSK_TERM_WHEN = 7, + WHEN keyword “WHEN” Gs in SET A al 

3 615 TOK TERM_COMCOL = 8, ! Allow both comma co 

3 1 TOK ~ na et = 9, i! Allow comma, WHEN, and DO (SET BREAK) 

3 1 TOK _TERM_GTRTHAN = 10, |! Greater-than sign ">" (as in <p,s,e>) 

; 18 TOKENSK_TERM_OPEN = 1], ! Open peren i. a 

; 61 TOKENSK_TERM_COMPAREN = \¢- Me n CALL 

; ©2620 TOKENSK-TERM-TO “3 te 0%: in tor’ izi Ton 

3 621 ha doe RL Ha si, ;{°* 

: 6 § TOKENSK_TERM_DOT = He ; ose *."" (as in Set constant 1..4) 

3 26 TOKENSK-MAX_TERMINATOR = 15; | === Maximum value for ToReNSw. Cave 


tei 33:23:05 “Abs kboGas8scoceuc: snc ioacuie.reo:1 °%° 39) 


: 6 LINKED LIST NODE 

3 $ 4 Linked Lists using this definition are generated by language specific 
; : : routines to indicate: 

; 6 i 1. The pages on ge @ symbol's 7 is is contained. 

3 r : ( DBGSNXXX_GET_PAGES ) 

; 6 i 2. Primary descriptors which recent a range specification. 

: ; ( DBGSNXXX_RAN E VAL 

; 26 i 

; 6 : 3 222 SRSaEGES SE 

; oz) : 1 3 § H 5 6 : 4 5 g ; § 987654 : 2109876543210 
: 641 i fewer eer owen oes e cece = Bese T BP eTT se Be Ben aenMeansZeon er Bene wen we ems + 
F ong eS pe __DBGSL “LINK NODE “LINK f 
3 64 ' Pome ce enone weet Bee HOST Ee DET EDO Be RO SE TRO OS -eececce eeeeceece + 
3 644 : :  DBGSL _LINK_NODE VALUE } 
g 2 ' aon ewasnes weer meneee correc r ecw sr eeenzr ces ececeroeeece eeeceeeoeoeooeoeoan + 
. ' 

; ei? 

: ets A pointer to a Link Node is declared as follows: 

; 631 ; LINKNODE: REF DBGSLINK_NODE 

; re iene 

3 654 : 

3 $2? } Define the Link Node fields and declaration macro. 

; 637 FIELD DBGSLINK_NODE FIELDS = 

; $36 DBGSL_LINK_NODE_LINK 5 f 0, LL }- ! Pointer to next node 

: 269 post. LINK-NODE-VALUE =[ 1, L- ! Node value field 
266 

3 ree LITERAL 

3 664 DBGSK_LINK_NODE_SIZE = 2; ' Size of Link node in 

3 665 ! lLongwords 

; $e MACRO 

3; M 2666 DBGSLI roy BLOCK CDBGSK_LINK_NODE_SIZEJ 

3 atthe (DBCS NK_NODE_FIELDS) 2%; 


o 
BS 
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MOVED DST ENTRY DEFINITIONS 


To support DST continuati records, every continued DST record is 
serged with its continuation records into one record and is moved to 
DEBUG permanent memory. A List of moved DST records is kept to allow 
access to these moved records. Each entry on that List has the follow- 
ing structure: 


FOSEF ESTES EFF o ares Ski doeressszi0 


o: MDESL_FLINK i 
oe | DESL_ORIGINAL_DSTPTR : 
90 2 3 MDESL_REAL_DSTPTR 
69 3 MDESL_REAL_LENGTH 
6 3 MDESL_NEXT_DSTPTR 


owner aon mena NOE Oen er anDan one aeBeneacrca nuns eas ener anome eer owowen $ 


As the RST for a module is built, continuation records are merged 
and the new ‘moved’ DST pointer is placed in the RST entry. Thus, 
moved DSTs are transparent for those routines that access the RST. 


Those routines that obtain DST pointers from the DST itself are: 


© Routines that deal with SEPTYP records 

© Routines that access indirect type specs 

o Routines that access novel length type spes 
o Routines that access the next DST record 


These routines must access those potasers through routines that search 
the structure to make sure that the DST hasn't been moved. The routines 
currently provided are: 


© DBGSRST_DST_PTR - Return the ‘'real'’ DST pointer 
© DBGS$RST_NEXT_DST - Return the ‘‘next’’ DST pointer 


bt et ts 


The structure is a singly Linked List with its head being 
DBGSGL_MOVED_DST_LIST_HEAD. 


Define the fields of the Moved DST Record Entry. Also define the entry length 
and the declaration macro. 
1ELD MDESF IELDS = 


MDESL_FLINK s 
MDESL-ORIGINAL_DSTPTR = 


Be Be Se Se Se Se Se Se Ge Se Be Se Se Se Be Se Ge FH Se Ge Se Ge Fe Ge FF Gs Ge Ge FH Se Se Se Se Ge Se Se Se Ge Se Se Ge Se Se Ge Se Se Se Ge Se Se Ge Ge SH Se Se Oe ae 
nee ee ee en EE EEE EEE TEES LS LL LG LG te ee ee ee ee te 


SNA NN NN NSS SS SS YD 


Ronononoronofony 


ES Sewer unos 


on 
Oo 
>.» * 
cr 
q 
a) 
>» * 
=—7 
zo 
eon 
© 
ow 


rd Link 
riginal DST pointer 


ie ee | 


wn 


uw 


a a 


1i-te 30071 938e 83:23:00 Mees s$nuks ne Hts eee oe rSéecute.neo:1 -° "383 
' 
i 
' 


4d AL =perere s ¢: L. de The new, moved, real pst pointer 
MDESL_R AL “bSt8 = o ke de ! The moved DST's Length 
+: | ae STPTR =-=(4, 1. The next DST pointer 
LITERAL 
MDESK_LENGTH = 5; ! Length of an entry in Longwords 


MACRO 
MDESRECORD = BLOCKC.LONG] FIELD(MDESFIELDS) 2%; 


NOTE: MDESL_NEXT_DSTPTR is @ simple address calculation to the next DST record 
with ght, thé continuation records sonsumed. At th :. ap the calculation is 
is mot known if the record will be reloc Thus ne eee: to it 


must also check it for being relocated by calling BS DBGSRST DST 


a - _— 
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NUMBER SCANNER STATE TABLE 


The L Lexical Number Scanner in routine DBGSLEXICAL_SCANNER operates off 
°, Fin tecstete Mach state table which = ine none Llowed formats 

f numeric constants in the current Langu $s thus one Number 
State Table for each language sup ported’ by 7 béBuG. {although some lan- 
guages can share t ate ey Boch state in the state table is 
seorecented 3 +e a $f of two or more st ate ree Transition Entries, 
gece of which ti es a state transition to be taken if the oarese 
snout chorecter s of a class Spee fied in the Transition Entry. 
format of a inober Scanner State Table Entry is as follows: 


ET SSESSERE RT OSOSSSSORS OSES SSSR 


be woe mer eee tee ea De EE DOE wr EEE EEE oe ewe nrErowroorwn anes Ecosse sean + 


Sig First State Table Transition Entry : 


power an nn cnwr ere rwe rece mem ammeer sr mme men emee ne mewn cer eawaemran ewe mramocnme a} 


SANS 


Additional State Table Transition Entries 


som news emo ace econ owemaaocaneaenruane tec se eso nt eee es eer aero e seem ma e+ 


mS State Table Transition Entry for NUMSTSK_CLASS_OTHER : 


$eemeree none nn enone mee ee werner mane eer r esr coro ee nas ese recess ee ere nee etree = > 


The individual State Table Transition Entry has the following format: 


TOSEF ESE SETS sare st sei doereseszi0 


_ Pri NUMSTSW_NEXT_STATE iNUMSTSB_ACTION | SB_CHAR_CLASS } 


“I 
s 


5 


The whole yp Scanner State Table for a Lenguege stanly consists 
of a sequen eof concatenated State Table Entries, one entry per 
state in th the F nitenprate Machine. fhe whole State Table is thus 

a vector of State Table Transition Entries. Element zero of the 
State tebte is the none su Next ?. the state table's Start State, and 
each transition’s NUMSTS$SW_NEXT_STATE pointer is a state table index 
which points to the beginning Of the next state's State Table Entry. 


Sa en ee ee 


789 
790 


A pointer to a Number Scanner State Table is declared as follows: 
STATE_TABLE: REF NUMSTSTABLE 
This Sasheres, State TABLE to be a block yector which is referenced 


as .STAT Let. -STATE_INDEX, field-name}] where STATE_INDEX is the 
vector ny which points to a specific Number Scanner State Table 


Be Se Be Se Se Se Be Se Se Se Se Se Ge Se FF Se Se Ge Se Se Fe Ge Se Fs Fe Ge Fe Se Se Gs Se Se Ge Ge Se Se Se Se FH Sse Se Se Se Se Se Se Ge Se Ge Ge Ge Ge SH Se Se Ge we 


ee er Tr er te te) ee ee ee ee ee ee ee ee te te et Te 
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Transition Entry. 


! Also define the declaration macro. 
FIELD NUMSTSFLD DEF = 


NUMSTSB_CHAR_CLASS = C 0, B0_ J, } Character class that ectivates 
this $s state transit 
NUMSTSB_ACTION = (0, 61. 2 CASE index for semantic action to be 
taken during state transition 
WAST NET STATE =({0, wi_ ] Index of next state after transition 


' 
' 
4 
' 
: Define the fields in the Number Scanner State Table Transition Entry. 
! 
F 


MACRO 
NUMSTSTABLE = BLOCKVECTORE,1,LONG) FIELD(NUMSTSFLD_DEF) 2%; 


: Define the allowed values of the character class field NUMST$B8_CHAR_CLASS. 
! These are the different classes of characters which are significant when 
scanning numeric constants. 


LITERAL 


= 


NUMSTSK_MIN_CLASS = 8. ! s=-= Minimum character class code 
NUNS TSK SK_CLASS =OTHER = 0, ' ALL other characters oe ye 
NUMSTSK-CLASS“DIGIT =1, : The gee ‘aes tsa, ae eo 
NUMSTSK_ ~fLASS- HEXDIGIT = ¢ ' The hex . "c"', and "'F 
NUMS TSK" CLASS"DOT = 3. : The crate point 
NUASTSK-CLASS~PLUS = 4, : The plus s 188 Gor exponents) 

STSK_CLASS_MI = 5, ! The minus sig (for exponents) 
NUMSTSK_CLASS_B = g. ! The letter ‘ m (for binary 

TSK_CLASS_D = 7, : The letter ‘'D"' (for exponents) 
NUMSTSK_CLASS_E = 8. ! The letter ‘E’’ (for exponents) 
NUMSTSK_CLASS_Q = : The letter ‘'Q"' (for exponents) 
NUMSTSK_CLASS_X = 16, : The letter "xX" (for hexadecimal) 
NUMSTSK_CLASS_UNDERSCORE= 11, |! is allowed in numbers in ADA 

3 NUMSTSK_CLASS ~POUND = 12, ! 'R* is allowed 9 numbers in ADA 
NUMSTS$K-CLASS G = 15, ! The letter “G’’ (for exponents) 
NUMST$K-MAX_CCASS = 13; ! === Maximum character class code 


: bet ine the valid values for the NUMSTSB_ACTION field. These values are CASE 
i indices mies select the semantic action routine to be executed for each 


OOONO WIS WN 0 OC 


state transition. 
LITERAL } 
NUMSTSK_MIN_ACTION = 1, { eco ae action index 
5 NUMSTS$K_ACT_DO_NOTHING = 1, ! No semantic action needed 
51 NUMSTSK_ACT_GO PAST _DIGIT = ¢° ! Go pest digit in inceser p part 
6 NUMSTSK-ACT"MARK DEC PT = 3, ! Mar that H decimal nt was found 
5 NUMSTSK-ACT-GO PAST FRAC = 4, ! Go Go past it in tracti On. part 
54 WURtS TSK ACT AARK 6 EXP = 5, ! Mark that E-exponeat field wee found 
55 NUMSTSK_ACT_MARK_D_EXP = g. ! Mark that D-exponent field was founda 
529 NUMSTSK_ACT_MARK Q EXP = 7, ! Mark that Q-exponent field was found 

5 NUMSTSK-ACT“BACKOP-PTRS = 8, ! Backup pointers and return token 


t a number--return token for it 
numeric constant 
ould Msc get oP ee ive error 


OBOL sf s could be part of a name 
tone be part of a name 
n hex mode 


past agi ; "os Pack decimal 
— past digit in Pack decimal 

We got a Packed decimal number-- 

: return token for it 

' base#number in AD 

' Mark chet pm een BO etote was found 
; | == Maximum acti nd 
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OPERATOR INFORMATION TABLE 


The Operator. jotoract (ee Table is a 8 meer ad et indexed by Operator 
Code te SUBTRACT) which gives pointers to tables which 
contain the letareat ton necessary to select the type conversions and 
then the routine invocations which evaluate the operators of a given 


Language. | 
33 2 | 
88858 Se $3485 433409876563210 
$ewenceee SUSUNEEESeREERPELSSSERSTELSesesEes eoceencuss aeescsunes + 
0: OP INF OS$L_ROUTTBL : | 
ti4 OPINFOSL_HIERTBL : | 
Es OPINFOSL_INCOMPTBL : | 
oe. flags | 


A pointer to an Operator Information Table is declared as follows: 
OPINFO_TABLE: REF OPINFOSTABLE 


Define the fields of the Operator Information Table entry. Also define the 
declaration macro. 


FIELD sa alee DEF = 


Re ee 


OPINFOSL_ROUTTBL =( 0, L_ J, ! Address of Operator aes bg A Le o- 
OPINFOSL_HIERTBL =( 1, L- J, ! Address of Type prerercey Tf 
OPINFOSL_INCOMPTBL = [ 2, L : Address of Ty .. cen at bitity Table 
OP INF OSV_FETCH =[ 3,v_t0)4 Flag for whether fetch is done on 


this Soares ten. 
TES; 


CRO 
OP INF OSTABL ; = BL SEES TEM, TOREINE. MAX_OPERATOR + 1,4,LONG) 
FIELDC(OPINFOSFLD_DEF) 2; 


WN“ OOONOUS WO OM 


WA.AAIAPOPOPONIPONONUPUNIEY  — 
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REF 


iret 
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OPERATOR ROUTINE TABLE 


The Operator Routine Table for a given spereter contains one every for 
each routine which can be associated with that operator. Each such 
entry contains the operand types pre ted by that routine (e.g., 
REAL,REAL for F_Floatin out }ely? e result t pe of she operation, 
B routine index which identifies the yim to invoked, and an 
optional ty ypeid check routine index which identifies the typeid check 


' 

: 

routine to be invoked. 

} 

i 33 2 

0 § A ; 6 g ¢ : g ; 8 9 b 5 H : : d 9876543210 
i ew ecw e wm enn een en em ome wrnaow er aoc cewee Tee a ee oe ew ee Se ee Sm ee eeeeeacoeeao 
0 ; ORT$W_ROUT ‘ORTSB_LEFT_TYPE‘:ORTSB_RIGHT_ TYPE! 
4 + Se ee ee oe me ow ee me Seeceeecnsowesoensonceoesesoesnseosoesoosssosesesesoe$} 
1 : 0 ‘ORTSB_RESULT_TYPE: ORTSW_TYPEID_ROUT ' 
> + wm ene eee ee Swe ee me Se tt ee —ne oe enero wvanqaeae = ween on en cane mee emo nm $+ 
: 

A pointer to an operator routine table entry is declared as follows: 
ORTPTR : REF ORTSENTRY 

; 

' 

: Define the fields of the Operator Routine Table entry. Also define a 
declaration macro. 

F 


IELD wag saws DEF = 
SET 


bt. _BASE_ADDR ={0, A. J] ! Base address 

ORT$B_RIGHT_TYPE = (0, 80_ 5, i The Cigat operand Dtype 

ORTS$B- =tEET TYPE =({0, B1- J, ! The left operand _Ptyee 

ORTSW_TYPES = (0, WO. J, ! The operand Dtype 

ORT T ={0, wild, ! The corresponding routine index 

ORTS$W_TYPEID_ROUT =({ 1, wO_ J, ' The cervecgending ¢ type id check 
: routine index 

FO Tee AERA T _TWE = (1, 62.) ! Result Dtype 


ACRO 
ORTSENTRY = BLOCKC2, LONG) FIELD(ORTSFLD_DEF) 2%; 


ACRO 
ORTSTABLE = BLOCKVECTORE,2.LONG) FIELD(ORTSFLD_DEF) 2%; 


' This is used to encode ‘unknown result type’’ in the attype field of 
the result value descriptor constructed in DBGEVALOP. 


LITERAL 
ORT$K_RESULT_UNKNOWN = 0; 


' Literals that are used in the new style operator evaluation. These 


74 VS35S$D0A2 : (DEBUG. $RcIbRGLIB. REQ; 1 


3009 


HAAN A.A. ALAA A.AANA AAA 
SOSCOCSCOOOOOCOOCOSCoOOoooOSeo 
—OOO@NO NEW “OC OONOUSWwN oO 
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est 33; 23: 30 “3 V$25 SSDUAD8 CoeBUG. $RCI5RGLI8. REQ; 1 poe $3 


values are syores in the ORTSW_ROUT field of the ere 1. aig 

Table entry (ve a ptyen operetir operating on a given 

types. The Literal is used as a case index in the DBG PERFORM. OPERATOR 
routine in order to actually do operations. 


‘ 
i 
i 
i 
i 
PITTIIIITILIIIILILILI LLL LIL Li iiTiiii iii iii iiiiiiiii iii 
! Note - the order of the case indices in DBGPERMOP must correspond 

i exactly to the ordering of the Literals here. One must be very careful 
; in changing this List. 

' 

i 

i 

i 

i 

i 


This situation is of course a maintenance problem and we should eventually 
figure out a better way to get these Literals shared. 


In the meantime, the List below must abs kept dense and must correspond 
exactly to the case labels in DBGPERMOP. 
pRRRASASALELZALASAEESLESLESE SESE EEE EERE SESE RE EERE CEE REEA RARE CERES EERE ESSE SS 


‘ene 
LITERAL 
ORT$K_MIN_ROUT = 


Add. 


ORTSK_ADD_B B 
ORTSK_ADD -80 BU 


—5 
>. 


3 SP ODNOU EWN 


WN R@Or es es es ee ees 


i asniadiee 
oRTSK _5UB_8 B 
ORT$K_SUB_B0_BU 


ORT$K~SUB"L 
oat it ~ 318 - “10 LU 


RroPoPononononoenn 2 
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: Divide. 
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ORTSK_NOT_D = 171, 
ORTSK_OR_6_8 = 10 
ORTSK_OR_W_W = 175, 
ORTSK_OR_L_L = 174, 
ORTSK_OR_D_D = 175, 
ORTSK_XOR_C_L = 176, 
: Unary plus and minus. 

ORTSK_UNARY_MINUS_B = 177, 
ORTSK_UNARY_MINUS_W = 178, 
ORTSK_UNARY_MINUS_ = 179, 
0  UNARY_MINUS_LU = 180, 
ORTSK_UNARY_MINUS_F = 181, 
ORTSK_UNARY_MINUS_D = 1 ¢° 
ORTSK—UNARY_MINUS_ = 183, 
ORTSK_UNARY_MINUS_H = 184, 
ORTSK_UNARY_MINUS_FC = 185, 
ORTSK-UNARY_MINUS_DC = 186, 
ORTSK_UNARY_MINUS_GC = 187, 
ORTSK_UNARY_MINUS_HC = 188, 
ORTSK_UNARY_PLUS_6 = 189, 
ORTSK_UNARY_PLUS_W = 190, 
ORTSK"UNARY—PLUS_L = 191, 
ORTSK_UNARY_PLUS_F 3 136° 
ORTS$K_UNARY_PLUS_D = 193, 
ORTSK_UNARY_PLUS_G = 194, 
ORTSK_UNARY—PLUS_! = 195, 
ORTSK_UNARY_PLUS_ FC = 196, 
ORTSK_UNARY_PLUS_ DC = 197, 
ORTSK_UNARY_PLUS_GC = 198, 
ORTSK-UNARY—PLUS_HC = 199, 


Absolute Value. 


ORT$K_ABS_8 = 00, 
ORTSK—ABS_W = 201, 
ORTSK~ABS"L = 202. 
RTSK_ABS_F = 203, 
ORTS$K"ABS_D = 204, 
ORT$K—ABS~G = 205, 
ORTS$K~ABS_H = 206, 
: Indirection. 
ORTSK_INDIRECT_LU = 307. 
ORTSK-INDIRECT-TPTR = 208, 
BLISS bit-select. 
ORTSK_BITSELECT = 209, 


: Set operations. 


ORTSK_DIFFERENCE_SET_SET = 210, 
ORTSK~EQL_SET_SET = 3 1, 
ORTSK~GEQ"SET"SET = 212. 
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Sep-1 99: 
1Boseoctgae 22:5 
ORTSK_IN_SET_SET = 213, 

TSK_INTERSECT_SET_SET = 214, 
ORTSK_LEQ_SET_SET = 215, 

RTSK_NEQ_ SET SET z 1$- 
OR TSK “UNION_SET_SET = 21/7, 

rations: 

hob ESS OF (8), SIZEOF 
i Also, addition or subtraction involving typed pointers 
is spec tai-cases in C because there is scaling to be done. 
ORTSK -ADDRESS_L S 1. 
ORTSK_SIZEOF _C = 219, 
ORTSK_ADD_TPTR_L = 220, 

$K_SUB_TPTR_L = 221, 
ORTSK_SUB_TPTR_TPTR = 222, 


BASIC implication (A imp B) 


ORTSK -BIT_IMP_B 8 = 223, 
ORTSK_BIT_IMP_W_W = 224, 
ORTSK-BITIIMP_L-L = 225, 


: C pre- and post- increment, decrement (++X X++ 


ORTSK _PRE_INCR_L = 36. 
ORTSK_PRE_INCR_LU = 227, 
TSK_PRE_INCR_ = 228, 
ORTSK~PRE-INCR-TPTR z $3" 
ORT$K-POST_I = 230, 
ORT$K_POST"INCR_LU = 231, 
ORTSK-POST—INCR_D = ¢° 
ORTSK-POST-INCR-TPTR = = ° 
ORTSK_PRE_Becr_C = 234, 
ORT$K_PRE_DECR_LU = 3. 
ORTSK—PRE_DEC = 236, 
ORTSK_PRE-DECR-TPTR = 237, 
ORTSK_POST_DECR_ = 238, 
ORT$K_POST-DECR_LU = 239, 
ORT$K_POST = 40, 
= e 


_D 
ORTSK—-POST_DECR_TPTR 
: Packed Decimal Operations. 


ORTSK -ADD_P_P 
ORTSK~SUB-P_P 
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-Sep-1984 


TYPE GRAPH 


The type conversions that are done for a given pg in a given 
language are specified by a set of directed acre § graphs. For 
example, pers of the pce h that specifies the implicit type conver- 
sions to be done for FORTRAN addition might look Like: 


L => F => D =>H 


FC => DC 


Each greet is represented by Listing its edges. Each edge is just a 
pair of Type IDs. 


ates we define the data structure used to declare the edges of these 
graphs. 


SED ESSSSCLOESOSOSSSSERSESESSTEL 
nr 


! HIGHER_TYPE { LOWER_TYPE | 


poem acavo eset eee ne oeeeee sme maenmeaas + 


Define the fields in an entry in an edge of a Type Graph. 


ee ee ee ee ee 


SGOOSOOSOSOSOSOOSOSSOOSOSSOCOCSOOSCOOSOSOOOOOOOOOOOOOOOOoOOoOO 


04 IELD TVES CRAP LD DOF = 

06 TYPE_GRAPHSB_LOWER TYPE = (0,80_], 

07 TYPE_GRAPHSB_HIGHER TYPE = (0,81_], 
408 TYPE_GRAPH$SW_BOTH_TYPES = CO,WO- 

09 TES; 

i 
tig : Define the macro which is used to declare an entry in a Type Graph 
14 MACRO 

15 TYPE_GRAPHSENTRY = BLOCK [1,WORD] FIELD (TYPE_GRAPHSFLD_DEF) %; 
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TYPE CONVERSION INFORMATION TABLE 


The T ype Convers ion Information Table is a vector of longwords used 
by a nguage which gives pointers to tables which contain the 
information necessary to select the type conversions and then 

the routine invocations which does the type conversion. 


PES ESSSOCROELESESSOSELI EELS EE 


eww er een em seen ee ne Oem eB OB OR SOHO ED OMe De OE DMD MO we Ree Ew ee bh 


0 : CVTINFOSL_MAPTBL H 
1 H CVTINFOSL_CVTTBL H 
oe flags H 


dw eo cece ne wmre ere reer eee rer o mn ecanreeceraneewee eSeeeeeeeaeaeaoe Sewer ewer eee me woe + 


? ointer to an Type Conversion Information Table is declared as 
ollows: 


CVTINFO_TABLE: REF CVTINFOSTABLE 
Define the fields of the Type Conversion Information Table entry. Also 
define the declaration macro. 
FIELD CVTINFOSFLD DEF = 
SET 


a ee ee ee ee ee ee ee 


CVTINFOSL_MAPTBL = f 0, L }- ! Address of Type Map Table 

CVTINFOSL_CVTTBL =([ 1, t i Address of Type Conversion Table 

CVT INF O$V_ROUND =(€2, Vv v2053: Flag te waeicate conversion result 
Ss rounde 


TES; 


ACRO 
CVTINFOSTABLE = BLOCK[3,LONG] FIELD (CVTINFOSFLD_DEF) 2%; 
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TYPE CONVERT ENTRY 


Type Convert Entry contains a type conversion 
Re ine index which identifies the routine to be invoked, from data 
type, and to data type. 


RES ESSSSCROELESUSSOSE LIES ESSE 
Few e eee eee ee ee eee ee eee eee eee eee Sees eeseeseoseeseeseoossssosoes} 


' TYPE _CVT$W_ROUT + HIGHER_TYPE { LOWER_TYPE i; 


ARANIASSRISALARIS Sse 


A pointer to an Type Map Entry is declared as follows: 


= 
~“ 


' 
' 
! 
' 
' 
' 
' 
' 
' 
] 
' 
' 
' 
' 
' $occoseceosssoresesooessecnsoososencooessesososecescocccsccocesss$ 
' 
! 
1 
' 
! 
‘ 
i] 
4 
' 
i] 
F 


: 

: 7 : CVIPTR : REF TYPE_CVTSENTRY 

: $275 9 

; 80 0 i Define the fields of the Type Map Table entry. Also define an entry 
5 o 8 ' declaration macro. 

: Hy 0 ELD 

4 84 0 TYPE_CVTSFLD_DEF = 

g 85 0 SET 

3 86 0 TYPE_CVT$B_LOWER_TYPE = (0, 80_), 

; 87 8 TYPE-CvT$B -HIGHER TYPE = (0, B1_], 

5 88 TYPE-CVTS$w_. PAIR = (0, wO_ 

$ 89 0 TYPE_-CVTSW_R ROUT = (0, WilJ 

3 es 8 TES; 

: 3 0 MACRO 

: + TYPE_CVTSENTRY = BLOCKC1, LONG] FIELD (TYPE_CVTSFLD_DEF) %; 
: 95 

3 rh § ' Literals that are used iy the new etyhe operator evaluatio 

3 97 0 ! The Literal is used as a case index in the DBGSLANGUAGE “TYPE CONV 
: 38 8 routine in a. &. to setual Ly do the conversion. 

: 500 ieee 

Py 2p 0 LITERAL 

3 502 CVTSK_MIN_ROUT st, 

: 3508 0 CVTSKPLI~CVT =1; 

3 504 CVT$K_COB_PICT = $: 

: 505 CVTSK~ MAX “ROUT =<; 

4 506 'ete 


c--— 
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PATHNAME DESCRIPTORS 


The pathname descriptor is used internally in the Debugger to represent 
@ pathname, including data quent ication. Thus ‘MOD\ROUT\X" is a path- 
name in this sense, and so is "MOD\ROUT\A.B.C’. The format of a path- 
name descriptor is shown here: 


PESESSSSSAOEEESOSEESELTESEOSTEL 
Se lt ee eee’ 


' Unused ‘PTHSB_LOCINVOC | PTHSB_PATHCNT | PTHSB_TOTCNT |: 


$e nme oan ee ee ees power eee eeeceaecn $+ 


0 
=. PTHSL_INVOCNUM ' 
2 


eon een ocoeae seeee THe Bene we soos esas sme re nwa se wacom eseasae meson eecas. $+ 


PTHSA_PATHVECTOR 


Pointers to Counted ASCII Strings 
(one per longword) 


t$oecmenaccoaaa eeeceecece weet ees ee etm seen see eee nee ae Se eee eC eee mmo wesc eee ws + 


The Pathname Descriptor contains two counts fields which give the total 
number of names in the pathname (five for M\R\A.B.C) and the total num- 
ber of names before the first dot (three for M\R\A.B.C). It also con- 
tains an invocation number (which is zero if none was explicitly spec i= 
fied) and an index into PTHSA_PATHVECTOR which indicates which pathname 
congenent was qualified by the invocation number (1 for A 2\X and 4 for 
M\RI\R2\R3 5\X). This index is zero if no invocation number was given. 
The rest of the descriptor consists of longwords containing petaeses to 
1 Fae HE age names in the pathname, each represented by a Counted 
‘ ring. 


A pointer to a Pathname Descriptor is declared as follows: 
PATHPTR: REF PTHSPATHNAME 


eee 


) Define the Pathname Descriptor fields. 
FIELD PTHSFLD_DEF = 


PTHS$B_TOTCNT = (0, 80. J, ! Total number of names in pathname | 
: including all data qualification 
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PTHSB_PATHCNT =( 0, B1_ J, Number = names in pathname proper 


ore any = qualification 


' 
' 
PTH$B_LOCINVOC =({ 0, B2.], ! The Location in the vector be} ow of 
} the name Sy an invocation num- 
: A (first name is” ) or zero 
| ooo =(0, 83..3, ! Unu 
PTHSL_INVOCNUM = [ 1, L_ : : the. {nvocation number or zero 
PTHSA_PATHVECTOR= [ 2, A_ The start of the pathname vector--has 
' 


one name pointer sgoens tee to a 
Counted ASCII name) per Longword. 


TES; 


Define the maximum allowed size of a pathname, i.e. the maximum number of 
sodtytéuet names, including data components. Also define the size of the 


' 
i 
xed part of the descriptor and the declaration macro. 
LITERAL | 
DBGSK_MAX_PATHNAME = 50, ! Maximum size of a pathname 
DBGSK_PATRADESCSIZE = 2, 1 Size .. eyed part of Pathname 


DBGSK_PATHNAME _SIZE = DBGSK_MAX _PATHNAME’ +  babee. -PATHDESCSIZE; 
MACRO 


SESE RENES Salo MISS EOS OE 


pe ew lw lw le lel al al alata lolalalelelololololelolalola) 


PTHSPATHNAME = BLOCKCDBGSK_PATHNAME_SIZE] FIELD(PTHSFLD_DEF) 2%; 
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PERMANENT SYMBOL DESCRIPTORS 


The Permanent Symbol Descriptor is used to describe Debugger ‘permanent 
byabote in Value Descriptors, ey mary Boegr seters, and address expres- 
sions. Permanent symbols name the VAX registers; ‘'RO’’ is thus a perma- 
nent symbol. Permanent Symbol Descriptors are only used for languages 
COBOL and PL/I. A Permanent Symbol Descriptor has this format: 


TOS EF ESE SST Gatos Lyk loo eresss210 


0: Unused {DBGSB_PERMSD_1D! 
i DBGSL_PERMSD_ADDR i 
gras DBGSL_PERMSD_PATH 


bow ecm esocere See eeeeeeeoeeeo PSS SSSSSSSSSSSSSSVSSSSSSSSSSIS“ISIGQOGQS“SS& wero weme $ 


A pointer to a Permanent Symbol Descriptor is declared as follows: 
PSDPTR: REF DBGSPERMSD 


ives 
' 
Define the Permanent Symbol Descriptor fields and declaration macro. 
FIELD DBGSPERMSD_F 1ELDS = 
DBG$B_PERMSD_ID 9. BO_ J, ! Symbol ID (register number) 


= 
DBGSL_PERMSD_ADDR = -l.id. ! Address of the register contents 
7 17 eta eta ={€2,t.] ! Address of symbol"s pathname descr. 


LITERAL 


DBGSK_PERMSD_SIZE = 3; } Size of fersenses Symbol Descriptor 


in longwords 
MACRO 
DBGSPERMSD = BLOCKCDBGS$K_PERMSD_SIZE] FIELD(DBGSPERMSD_FIELDS) 2; 
: These are the possible values of the DBGSB_PERMSD_ID field. 
LITERAL 


DBG$K_RO = 200, ' Register RO 
DBGSK_R1 = 201, ! Register R1 
pecan Re = ¢° ! Register R 
DBGSK_R = e ! Register R 
DBGSK_RS = 204, ' Register R4 
DBGSK_R5 = 205. ' Register R5 
DBGSK_R = 206, ! Register R 
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R7 


H 7 DBGSK_R7 = 207, ! Register 

$ 3 DBGSK_R z . ! Register Re 

; DBGSK _ = ° ' Register R 

H 0 DBGSK_R1 = 9. ' Register R1 

; 1 DBGSK_R1 = 211, ! Register R1 

; ¢ DBGSK_A : \¢ ! Argument Pointer (AP) 

H DBGSK_FP = 215, ! Frame Pointer (FP) 

; 4 DBGSK_ = 214, ! Stack Pointer (SP) 

3 5 0 DBGSK_ = 215, ! Program Counter (PC) 

; : 8 DBGSK_PSL = 216; ! Processor Status Longword (PSL) 


sane Rc ie Set 


seEeeEs: 


SAAAOCAOCAOCOCOOOOC 
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ee eee 


LITERAL 


MACRO 
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PREDECLARED IDENTIFIER ENTRY 


Language reserves gt peta Identifier as names tf functions, 
sored see S Bes: values, etc. Predeclared Identifier Ent tit 
sed by oett G to describe one of these gerenech eres identi warts 
er 


denti oe up in this fesse, fF an entry is foun 
he descriptor ts greeted for this gatry. For example, vRue m FALSE 
in PASCA LSE., in FORTRAN. The Predeclared Identifier 


Entry has the Bl lesions format: 


PES ESESSOREETUSESCOSSO LS ES TOSSES, 


Pere wr eres eer es se Pomme e re meme temas moneeramma noses etoemerocciaeeacsrea$ 


i unused + PRIDSB_FCODE { PRIDSB_DTYPE { PRIDSB_KIND ;: 


foeweceeecoooooes}cooesooesosoonse}coccccssecooose}ccoccccescoosoe$ 


' PRIDSL VALUE ' 


$oemoncmmar ea rene wewcne cr owoes Seeeoeeeeneneanoe ee 


: PRIDSA -NAME | PRIDSB_LENGTH : 


teawnnne eeeeeoeeo@ A ee tees om arate 


(Predeclared Identifier name in Counted ASCII) H 
(Includes PRIDSB_LENGTH and PRIDSA_NAME fields) 


@ ecccecceccesce 


' 
' 
' 
' 
' 
‘ 
‘ 
' 
' 

+ 


The PRIDSB_KIND field defines the kind of Predefined Identifier. 
The PRID$B_KIND field of an Predefined Identifier Constant Entry 
always has the value of PRIDSK_CONSTANT. It has the following format. 
A pointer to a Predefined Identifier Value Entry is defined as follows: 


PRIDPTR: REF PRIDSENTRY 


Define the fields of the Predefined Identifier Entry. 
FIELD at + ahaa DEF = 


PRIDSB_KIND =({ 0, 80_). ‘ Predefined Identifier Kind 

PRIDS$B_DTYPE ={ 0, 61], ! Data Type of the $y ID constant 
PRID$B_FCODE ={ 0, 62_), ! FCODE of the data t 

PRIDSL_ VALUE 2 eee ' Data value of the Predefined ID constant 
PRIDSE_LENGTH == [ ¢, 80_}. i Length of the Predefined ID name in butes 
+t eae E = - All ! Predefined ID name in ASCII 


PRIDSK_ENTSIZE = 2; 


Size of fixed part is 2 longwords 


PRIDSENTRY = BLOCKC,LONG) FIELD(PRIDSFLD_DEF) 2; 


ee 


SANS 
MH Sees 


CWONOW 


ibe 


: Define the valid values of the PRIDSB_KIND field 


LITERAL 
PRIDSK_CONSTANT = 1; 


-Se - 
=bep- 


198s 83:23:00 YS8SS$0UA28 


! Predeclared ID constant 
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PRIMARY AND VALUE DESCRIPTOR HEADER 


cr omery Sever’ tors one Value Descriptors are descriptors busts by 
vely. 


q 1 

158 

158 

7 $ peeve describe Primary speqess o and language values, respect 

7 The Language-independent versions of these descriptors all have a 
y : common header section which has the following format: 

7 

731 1 

re REL EAESSSREEIEOSESESSELTOSEEEEEE 
7 gee Grr ies Peewee nece nnn anwar earemrwe newer eos e sa $ 
4 5 ' | $B8_DHDR_LANG ‘ $8 _DHDR_TYPE H DBGSW_DHDR_LENGTH H 
r | SB_DHDR_KIND {| SB_DHDR_FCODE : DBGSW_DHDR_FLAGS : 
7 

7 


wn -—- © 


ee ee ee ee 


; 5 ' DBGSL_DHDR_TYPEID H 

; : DBGSL_DHDR_SYMIDO HM 

HS 8 

; . Define the Primary or Value Descriptor Header Block fields. 

; 8 FIELD BOSSHOR FIELDS = 

; 0 DBG$B_DHDR_LANG =(€ 0, 83. ], ! Language Code 

g 0 DBG$B_DHDR_ TYP = 8. Be_ J, ' Type Code (Primary/Value/...) 

3 0 DBGSW_DHDR_LENGTH = - WO. J, ‘ Length of descriptor in bytes 

; 0 _DHDR_ ={ 1, 83. J, ! RST kind of entity 

: 0 DBG$B_DHDR_F CODE ={ 1, 62. J. ! FCODE of data item 

; 8 DBGS$W_DHDR_FLAG =({ 1, W ! Flags word 

; DBGSV_DHDR_AGGR = (€°1, 00.(0)), | Set if data item is an aggregate 
; 0 DBGSV_DHDR_SUBREF =({ 1, VO_.(1)], ! Set if port iat data reference 

3 0 DBG$SV_DHDR_BITREF =([ 1, V ~(¢ a a i t-string sub-reference 
; 0 DBGSV_DHDR_SGNEXT =[ 1, VO_-(3)], ! Set if value should be sign-extended 
3 0 DBGSV_DHDR_BLIBLK ={[{ 1, VO_(4)], ! Set if data item is a BLISS block 
; 0 DBGSV_DHDR_UNCVT = (1, vO_(5)],  ! Unconverted constant flag 

: 0 DBG$V_DHDR_LITER ={i1,V - {9} ° ' Flag for Literal value 

; 0 DBGSV_DHDR_OVERRIDE = ( 1, VO_(7)], ! Set if override was present 

3 8 DBGS$V~DHDR_ TMPRE =f 1, vi_(0) ' Set if temporary SUBREF 

; GSV"DHDR“FORMAT = 1, V1~(4,45), § Printing Format Code 

; 4 DBGSL_DADR_TYPEID = f ys j. ' TYPEID of data ite 

3 4 SL. “DHDR-SYMIDO = » & ! Context osymid Rise data item) 


aa 
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PRIMARY AND VALUE DESCRIPTOR HEADER FOR COBOL AND PL/I 


The Primary Useks bu or and the Value Descriptor for COBOL and PL/I are 
pooh toy blocks bu 3. ;bY the Language-specific routines for those two 
anguapne As such their ze are unknown to the Debugger kernel 
re not Gooce tee here), f they all must have the common header 
described here. A Primary desert ptor or Value Descriptor for COBOL or 

PL/I thus has this format: 


POSER OSES ES ares Sat bverssesare 


+ 
‘ $8 -DHEAD aLANG ; H 1 $8 -DHEAD_ TYPE - 1 __DBGSW_ DHEAD_LENGTH H 


a neaon wenn nm nrwe fewer wrenrnoweot}oemeenennvnoaeewanownenen woonwaam a + 


+ 
a 
4 
‘ 
t 
1 
‘ 
§ 
6 
‘ 
8 
4 
‘ 
a 
9 
a 
8 
a 
‘ 
a 
ig 
; 
' 
t 
a 
a 
a 
24 
H 
a 
; 
He 
a 
; 
' 
1 
; 
' 
) 
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t 
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4 
t 
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‘ 
§ 
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a 
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e 
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ise 
>] 
wo 
Cc 
oO 
cer 
® 
e 
wn 
o 
oO 
o 
~ 
— 
~~ 
o 
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} eccccccccecces > oe 


A pointer to a descriptor header block is declared as follows: 
DESCPTR: REF DBGSDHEAD 


eo 


7 Define the Value or Primary Descriptor Header Block fields and the declaration 
macro. 
i 


FIELD DBGSDHEAD_FIELDS = 
DBG$W_DHEAD_LENGTH = C 0, wWO_ J, Length of f Srsceipter. in bytes 


inc tuging ¢ is negder 
pacts ~DHEAD eee | = Q. B2_ }: i The type of this descriptor 
BG$B_D = Language of the descriptor 
basil DHEAD™ ~POINTER= e % “J =! Unused at present 
LITERAL 
DBGSK_DHEAD_SIZE = 2; ! Size of descriptor header in longwords 
MACRO 


DBGSDHEAD = BLOCKCDBG$K_DHEAD_SIZE] FIELD(DBGSOHEAD_FIELDS) 2; 


! The possible values of the DBGSB_DHEAD_LANG field are the language codes 


S01 


! defined in the section entitled ‘Miscellaneous Literals’ above. The possible 
! value of the DBGSB_DHEAD_TYPE field, which are defined in the same section, 
: are the following: 


DBGSK_PRIMARY DESC 


i ' s a Primary Descriptor 
DBGSK_ VALUE _DESC ' s 
. . Sg 
' 


a@ non-volatile Value Descriptor 


DBGSK_V_VALOE_DESC a volatile Value Descriptor 
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PRIMARY DESCRIPTOR DEFINITIONS 


Primary Descriptors describe Primary Symbols parsed in DEBUG commands. 

A Pr eery syasot may be a simple name, such as ‘‘A ve 78 sore cone} ex 
name including pathname qualification gate quet cation, subscripting, 
and dereferencing, such as "MOD\ROUT\A.BL2,31°.C(4).D". 


The Primary Descriptor described here is the Primary Descriptor built 
by the language-independent parser in module DBGPARSER. 


A 4 be | Descriptor conetees of a Root Node followed by a doubly 
Linked List of Sub-Nodes which describe the individual components 
of the syabet described by the Primary Descriptor. Each Sub-Node 
thus describes an instance of data qualification, subscripting, 
derefencing, or the like. The last Sub-Node describes the final 
object named by the Primary Symbol. 


Consider the Primary Symbol ‘‘A\B\C.0(2]*.E"' for example. The Primary 
Descriptor Root Node would point to a Sub-Node for A\B\C which requires 
@ Record Sub-Node. It points to another Sub-Node for component D of 
record A\B\C. This component is an array and requires an meray Subs 
Node. The next node is the Sub-Node for the array element A\B\C.D(2). 
This element is of a pointer type. The next Sub-Node is a node for 
the pointed-to object which happens to be a record and therefore calls 
for a Record Sub-Node. Pinel iy. the Last Sub-Node on the chain is for 
component E of that record. The “ype of Sub-Node required depends on 
the data type of E, but would be a Normal Sub-Node for all data types 
other than arrays and records. 
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PRIMARY DESCRIPTOR ROOT NODE 


A er iaery Descriptor cons tats of a Root Node followed by a doubly 
Linked List of Sub-Nodes which describe the individual components 
of the symbol described by the Primary Descriptor. The format of 
the Primary Descriptor Root Node is as follows: 


PET ScSCSUACETOESUSCSSSOLSES ESET EL 


Pema meownaanroe domo woeea sn aomeue tonsa onewmoe ran aenreeenmonenoanwan >} 


{ $SB_DHDR_LANG | $B_DHDR_TYPE } DBGSW_DHDR_LENGTH 


goes reo mancranman dg me mocn emer eee tome ee nse reese acenma ream wn neem awe $ 


{ $B_DHDR_KIND | $8_DHDR_FCODE ! DBGS$W_DHDR_FLAGS 


DBGSL_DHDR_TYPEID 


been eee me me eee Oe Eee Eee eB BO ee Se ee Tee oe + 


‘ DBGSL_DHDR_SYMIDO i 


DBG$W_PRIM_LENGTH DBG$W_PRIM_OFFSET 


DBGSL_PRIM_FLINK 


fee cen meena s em e SES KBD nacre Enema meron Ee ceca seem ee seem ame mot 


DBGSL_PRIM_BLINK 


Ce ee ee es eeeoeoeo am} 


Unused { .SCOPE_STATE | 


+ eeeoeoe@ SSB BBrse rT OTB econ Zr ewoe Zr Be 2B To PFT owmeoceeooeae eauwstoasmeneaen eee aeaaty 


' DBGSL_PRIM_SCOPE ' 


pera mi ane woan eeeeoeoe SSS SSSSSSSSSSSSSSSVSSSSSSSSS“ISOSBS“SISOSOS“OOOSOS eeeeoeoe at 


A pointer to a Primary Descriptor Root Node is declared as follows: 


PRIMPTR: REF DBGSPRIMARY 


DBGSW_PRIM_OFFSET =( 4, SWO_J,! Offset within data item 
DBGSW_PRIM_LENGTH ={ 4, Wi__J, ! Length of partial reference 
DBGSA_PRIM_FLINK = 2° A.~], ! Address of Sub-Node List head in 
DBGSL_PRIM_FLINK = ~ lod. ! Forward Link to first Sub-Node 
DBGS$L_PRIM_BLINK = g. L ' Backward Link to last Sub-Node 
DBGSB~PRIM-SCOPE_STATE= [ 7, 80__5, ' Scope state (see next field) 
DOGS PRIA_SCOPE 8, L.-) ! Scope where symbol was looked up 


' Define the declaration macro. Note that the toot | Descriptor also has 
y 


' Value Descriptor fields defined. This is to simpli 
! those routines which can accept either a Primary Descriptor or a Value 


“$e0-1904 22:59:57 vay 


he declarations in 


544 Bt igs ae v4. 
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0- 
: CDEBUG. SRC JDBGLIB.REQ;1 


Define the fields of the language-independent Primary Descriptor Root Node. 
IELD DBGSPRIM_FIELDS = 
SET 


root 


the 


-Sep-1 :5 Vays 1 Bliss-32 V4.0-742 Pp 90 
1$-se0-1944 33:23:80 | “SSsdba BASES taal: Sac ioaccie. REQ;1 (51). 
: Descriptor as input. 
MACRO 
DBGSPRIMARY = BLOCK [ LONG] 
FIELD(DAGSDHDR_FIELDS, DBGSPRIM_FIELDS, DBGSVALUE_FIELDS) 2%; 


NOUS WN 


: Define the size in longwords of the Primary Descriptor Root Node. 


LITERAL 
DBGSK_PRIMARY_SIZE = 9; ! Size of Root Node in longwords 


OOOOOOOOOOO 


2 


set tt A 
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3 9 ¢ ; PRIMARY DESCRIPTOR NORMAL SUB-NODE 

| ¢ 

3 9 ! 

3 9 : Meg A 7 Deoge voter Sub-Nodes are attached to the Primary Descriptor 
3 9 ‘ aa doubly Linked List. The first Sub-Node cogrqsenes 
3 9 ‘ ~ ++ 18 data item in the Primary Symbol (for example, A 

3 9 : *“A/B.CC **) — eupsequent nodes represent subsequent items (such 
: 3940 as .C, .cl2), D). ALC Primary Descriptor Sub-Nodes include a 
3 941 ‘ “common core 7 information, with other fields added for ertain 
: ar8 ‘ specific sub-nodes. ree “Normal Ce Geogr ibes here is used 
3 94 : for all ‘ Lewy 7 symbols, yy all s xed ols for which no specific 
3 944 ‘ ag Descri jptor ”Sub-Node has been det ined below. This Sub-Node 
3 346 : has only the ‘ Connon core’ fields and no type-specific fields: 

: 394 i 

; 948 ! 33 222 SEREBERRB ES SEES 

3 es 0 § § 5 6 ; 4 : g 1 98765432109876543210 

$ 936 : 0 ‘ DBGSL_PNODE _FLINK H 
; 3954 5 oe eae DBGSL_PNODE_BLINK i 
4 955 0 ' ay eT ET Sa a2 a as 

; 956 0 ing ia Unused {SB_PNODE_FLAGS !$B_PNODE_FCODE | SB_PNODE_KIND H 
g 957 0 ' I ee AINE a sme st trae dite ett Mim a 

3 4 } 3 i DBGSL_PNODE_TYPEID H 
: 3960 : i Sa DBGSL_PNODE_SYMID ; 
3 961 ' | — a RE GN ae on ee ay ee ee + 

3 308 ! 5 : DBGSL -PNODE -RELOC : 
; st bese eneweneceeeurnmanseeasacea we te an oe ee ee ee ee ee Owen meen nama aeancaca + 

s wes of 

; $67 8 A pointer to a Primary Descriptor Sub-Node is declared as follows: 
; 969 0 PNODEPTR: REF DBGSPRIM_NODE 

; 3971 

3 df : The following are the meanings of the fields in the Normal Sub-Node. 

: 3974 i DBG$B_PNODE_KIND “> May be "7,05 RST kind al though it usually 

> 3975 i s RSTSK_DATA of RSTSK P. 

3 4A : DBG$B_PNODE _F CODE _ (an be any CODE other” than those for which 
ee 3 4 : separate eseery Descriptor Sub-Nodes are 
3 97 ; Gescr ibed below 

3 9 : DBGSL_PNODE_TYPEID <== ine 7 Type 1D for. the object's 

; 980 ; DBGSL-PNODE-SYMID ~o ID for the abject. i this Pfietd may 
: 981 : + zero, as it is for an array element or 
3 Ht @ pointed-to element. 

; 39 i DBGSL_PNODE_RELOC == A ‘relocation constant’ for the address. 

: 985 ! This is norsal ly zero, but can contain 

r 9 ! a user address (in the case of anonynous 

3 tf references) or a byte offset (for strings) 
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; 989 : | 
; 330 : Define the size of the Primary Descriptor Normal Sub-Node. 

; 938 LITERAL 

3 rat, DBGSK_PRIM_SIZE_NORMAL = 6; ! Size of Normal Sub-Node in Longwords | 
; 3995 

3 44 ! Define the fields of the Primary Descriptor Sub-Node. Also define the 

; rad ; declaration macro. 

; 44 é1eLD sat 3 pat FIELDS = 
3 toot DBGSL_PNODE_FLINK = {( 0, LL }- ! Link to following primary sub-node | 
; resi] DBGSL _PNODE _BL INK et i. & i . 9 © preceding or inery sub-node 
: 4003 0 DBGSB_PNODE-KIND = , 80. J, The RST “kind” this component | 
; 4004 0 DBGSB_PNODE_FCODE = o BL. det CODE for this component 
; 4005 0 DBG$B_PNODE-FLAGS = " Be ! Flags re | 
; 4006 0 DBeSy “PNODE-EVAL =(C 2, v2-(05 J, ! Evaluate tsfutton, er" dot | 
; 400 8 i “qualification, or ereferencing | 
; $008 i operation on this component 

; 4009 0 DBGSV_PNARR_COLUMN = » V2.41) }- i Set if array tn” ‘column major’ order 

; 4010 0 DBGSV_PNARR_BITREF = » ¥ -(¢ , | Set if this is a BIT array 

; 4011 0 BGSV_PNARR _ = e V2_(3) ;° i Set if ervey has oubecr iat ranges 

3 red 0 DBGSV_PNVAR_VALID = » V2_(4) i Set if Tag has been validated 
; 4013 0 DBGSVPNODE-IGNORE = [€°2, 02_(5)4,! Says to ignore SYMID in ocaress | 
; 4014 8 ' computation. 
; 4015 DBGSL_PNODE_TYPEID = C 3, L_ J, i TYPEID for this component 

; 4016 0 DBGSL-PNODE-SYMID = ([ 4, L- }° i Generic SYMID for this component 

: red tA DBGSL-PNODE-RELOC = (C 5, L- J, i Address relocation factor 

; 4019 0 DBGSW_PNREC_INDEX = f 6, WO_ }7j Record Component Index 
3 rts 34 DBGSW"PNREC"NCOMPS = C 6, Wi_ J,! Number of components in record 
; 4032 0 DBGSW_PNVAR_INDEX = (€ 6, WO_ 4°; Variant Component Index 

; 6025 0 DBGSW_PNVAR_NCOMPS = ({ 6, Wi_ J,! Number of components * variant 

; 4024 0 DBGSL_PNVAR_TAGID =({ 7, L_ J,! SYMID of tag variable (or 0) 

; 4025 0 DBGSL_PNVAR_COMPLST= C 8, L_ J, ! Pointer to list of record components 

; 402 8 } in this record variant 

; 402 DBGSL_PNVAR_DSTPTR = C 9, L_ J, ! Pointer to Variant Value DST Record 

5 4099 8 : for this record variant 

; 4030 0 DBG$B_PNARR_SCALE = ({ 6, BO_ J,! Decimal scale factor for array element 

; 6031 0 GSB-PNARR_DIGITS = C 6, Bi_ J,! Decimal digits for array element or 0 

: rte 8 GSB_PNARR_DTYPE = ( 6, Be o! DTYPE of an array element 

; $035 DBGS$B_PNARR_DIMCNT = g. BS_ J.,! Number of orrey dimensions 

; 4034 0 DBGSW_PNARR_LENGTH = - WO. J,! Length of each prray element 

; 60355 0 R_SUBCNT = { 7, B3__J,! Number of actual s gear o**,, guep| ied 

3, rt4) 0 DBGSL_PNARR_OFFSET = C 8, L_“J, ! Offset to element nen it or 

; 4037 0 i 2 Ke, depending on bither flag) 

; 4038 0 DBGSL_PNARR_CELLTYP ap o, t+. : : type array element data type 

3 rte 3 DEgsA. PNARR~SVECTOR= (10, A_ ! BLOCKVECTOR of subscripts 

3; 4041 0 

; rn 0 MACRO 

; 4045 0 DBGSPRIM_NODE = BLOCK C,LONG) FIELD(DBGSPNODE_FIELDS)2; 


| 
| 
| 
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i 
; 4044 : PRIMARY DESCRIPTOR ARRAY SUB-NODE | ; 
$ 4045 : : 
; toc? ; 
; i his Primary Descriptor Sub-Node is used for array types (i.e. : 
: t0c8 i ior ertenr y symbol Components whose FCODE is Array). the node : 
; 4050 : contains all {nformat ion needed later about ene array ne itself, : 
: 6051 5 :" ane sugen the dimension count, all subscript types and bounds, etc. : 
: ett} 0 : This is fhe format: | 
: tose 9 ; 
° i | : 
; toe 0 i 1858988295983 £32109876543210 | ; 
| wee ed janrmenremenene sinnpiiienstenssiaennaiiaiae widenanetiniincense | 
3 ret 8 0 : eee _________DBGSLLPNODE_FLINK (ae am ae mo ee oe ae ae oe oe ce me ee eo ‘ | : 
a Bees On oe DBGSL_PNODE _BLINK | : 
> 6062 0 i pewewewcnnneennn pone eoeewcccesce}ocsececce Ee ee : 
; does ee FF a a ee {SB_PNODE_FLAGS_!$8_PNODE_FCODE ! $8_PNODE.KIND_! : 
eS 2 tS) eee Ee ee 
BS Be See DBGSL_PNODE_SYMID_ : 
: 4068 0 i a aaa ny oi Sas care teeeeeeenenee-- ‘ i 
Sy 8 Bie Ce ia, Sau Ne aeSonaee : 
: 407) 9 | 6 158 PNARR_DINCNT :SB_PNARR.DIYPE_$B_PNARR.DIGITS!SB_PNARR.SCALE_! paar 
: 4078 Q = | 7 ISBLPNARR-SUBCNT! Unused of a ee ee | : 
ge @ P26 Oh se Se Sates te “DBGSL_PNARR_OFFSET cauiiieedibmmaiamioaaale : | : 
Bp G P48 2) 2b SR DBGSL_PRARR_CELLTYPE saad | ; 
: 4079 0 nm es DBGSA_PNARR_SVECTOR | 
SB es : avai 
: 4082 0 fey (Block-vector of subscript information) : 
: 1088 0 = ; ' | ‘ 
; 608 0 =} 
te 8 See eee cs MeL a i 
; 4086 0 i teeennnnee--- 2-2 22------- 2-2 ------- === 2 : 
; 4087 QO ‘ 
rt 
: rts 3 The following are the meanings of the fields in the Array Type Sub-Node. 
; ; PNODE KIND. =~ Must be RSTSK_DATA or RSTSK_TYPCOMP. : 
: 4098 8 . DCSE ~PNODE™ =FCODE ~~ Must be RSTSK-TYPE_ ARRAY. 
; 40% 0 } DBGSL-PNODE“TYPEID -- The Type ID for thé array type. 
; 405 6 Ff DBGSL~ =PNODETSYMID =~ The SYRID for the array (or zero). 
> 46096 0 i DBG$B- PNARR “SCALE <= The element scale factor or zero. 
; 607 Oo DBGSB-PNARRDIGITS == The element digit count or zero. 
: 6098 0 i DBGSB"PNARR-DTYPE == the Lenent VA Standard type code (if 
; i applicable) or ‘ 
: £100 i DBGSB_PNARR_DIMCNT = == the number of array dimensions. i 
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DBGSB_PNARR_SUBCNT <= The number of actual subscripts supplied. 
In some Languages this may be less than 
the number of array dimensions. 

DBGSB_PNARR_LENGTH <== The Length of each array element. This 
Length is in bytes except for DTYPEs 
V (bits) and P (packed decimal). 

DBGSL_PNARR_OFFSET <== The offset to element ARR(O,0,...,0] 
from the start of the areeys 

DBGSL_PNARR_CELLTYPE == The Type ID of the array element type. 

DBGSA_PNARR_SVECTOR == Start of the subscript block-vector. 


The block-vector of subscript information consists of a vector whose 
elements are blocks of the following format. There is once such block 
for each dimension in the array. 


105656555596587654321098765463210 
$e wmeeww ewe e ewe ccc eeceeocooocce woceeee eoceonne reer 


' DBGSL_PNSUB_SVALUE i 
' DBGSL_PNSUB_STRIDE ' 


gw wman ame nme neon rece ne amen aoa sane Se SSB essere rana nama acan = sen awe oe ween + 


DBGSL_PNSUB_LBOUND ' 


Pew eee men ee weer weno ewee emer en an weer ne nem eon eeeceeceooeeoeoooeses seem e+ 


DBGSL_PNSUB_UBOUND 


$e een een ene weeoeee wee eee Sense soem nese se enna ameeanesascoen seem maae a + 


' DBGSL_PNSUB_TYPEID ' 


tee wen rene Seen em EOE BO ree m meteor em ete wees were ew aes wee ee me + 


i Define the fields in the subscript information block-vector. 
IELD SOS IE NOE) HELOS = 


DBGS$L_PNSUB_SVALUE = f o, t. }: ! Subscript Value 
DBGSL_PNSUB_STRIDE = C 1, LL J, ! Subscript Stride (bit or byte 

: depending on BITREF flag) 
DBGSL_PNSUB_LBOUND = ¢- L. J. ! Subscript Lower Bound 
DBGSL_PNSUB_UBOUND = - L. J. ! Subscript Lower Bound 
DBGSL_PNSUB_TYPEID = { 4, L_ ! Subscript types Type ID. If the 

; subscript type is longword 
_ : integer, this field is zero. 


DBGSPRIM_NODE_SUBS = BLOCKVECTORC,5,LONG) FIELD(DBGSPNSUB_FIELDS) 2; 


: Define the size of the Primary Descriptor Array Sub-Node. 
LITERAL 


DBGSK_PRIM_SIZE_ARRAY = 10, ! Size of fixed part in longwords 
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a 
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DBGSK_PRIM_SIZE_SUBS 


= 5; 


-S$ep-1984 22:5 VAX-11 Bliss 
WSoseo-19ne 22:59:87 vaRsHL ak tgee 
Size of variable part per piece tad, 

; also in longwords 
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1 ~3007 1382 35:23:00 "$255$DUA28 : (DEBUG. SRCIDBGLIB.REQ; 1 . (54) 
; $160 PRIMARY DESCRIPTOR RECORD SUB-NODE | 
; 616 ' 

HER 

6164 i This Primary Descriptor Sub-Node js used for record types (i.e., for 
; 6165 : or eaere Symbol components whose FCODE is Record). The only extra 

3 2199 ‘ field in this sub-node is the record (or ‘'structure’’) component 

s 616 } index which indicates which record component is selected from the 

; ci83 } defined components of this record type. 

: 4170 i 

; 64171 ! 3 1 72 ean 

: aR TOS EF Ee ess T GF kek ls klboezeses2i0 

: rae + * 

i 1% PAG. DBGSL _PNODE _FLINK i 

; rei i we DBGSL_PNODE_BLINK 

; 417 sal Unused {SB_PNODE_FLAGS !$B_PNODE_FCODE : SB_PNODE_KIND | 

$ 41 80 0 ' tem ce sees nme toe scan nm eomem se f}osnawmearco erm n rebum renner wer oem ema + 

3 ois) 0 ioe Ss DBGS$L_PNODE_TYPEID : 

; 61835 0 a 2 DBGSL_PNODE_SYMID } 

3 41 84 0 ' beer ere ere mew ome wee moe ee me emo w ewe ferme wre ne comme crocs eeeeeoe Sawer ewe nae = + 

; 6185 0 ot Se DBGSL_PNODE_RELOC : 

3 41 HY] 0 ' ore emo cetr see ene emcee mea wancwre— ee me em ee COTE RO ORR nre = + 

; 618 0 - @. 8 DBGSW_PNREC_NCOMPS : DBGSW_PNREC_INDEX : 

g 41 88 ' $e cwmecerec ae cseeeceessoe san cease see $¢ ase ee omer eee ees eens soa wom ee + 
Hee 

> 4191 } 

3 $136 0 : The following are the meanings of the fields in the Record Type Sub-Node. 
: 6194 8 i DBG$B_PNODE _KIND -- Must be RSTSK_DATA or RSTSK_TYPCOMP. 

; 6195 0 : DBGSB_PNODE _F CODE -- Must be RSTSK_TYPE_RECORD. 

3 oite 0 : DBGSL_PNODE_TYPEID <== The Type ID for the record type. 

; «64619 8 : DBGSL_PNODE_SYMID -- The SYMID for the record (or zero). 

; 64198 ; DBGSW_PNREC_ INDEX -- The index of the selected record component 

; 6199 0 : in the set of record components for this 

; £500 0 : record type. This is meaningful only if 

; 6201 0 ‘ the DBGSV_PNODE_EVAL is set--otherwise 

: 6 oe ‘ this field is always initialized to 1. 

; 2 $2 : DBGSW_PNREC_NCOMPS <== The number of components in this record 

> 4205 i 

$ : oS : Define the size of the Primary Descriptor Record Sub-Node. 

: 6208 0 LITERAL : 

; 6209 0 DBGSK_PRIM_SIZE_RECORD = 7; ! Size of Record Sub-Node in longwords 


=e 
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PRIMARY DESCRIPTOR VARIANT SUB-NODE 


This Primary Bai os ty ened Sub-Node is used for variant types (i.e. 
ir er ter tal Symbol conpenenys whose FCODE is variant). The extra 

ot $ sub-node indicate which is the currently selected 
tee of the variant set (much as a record conponens is shown 
in the record sub-node), the number of components, and the SYMID 
of the associated TAG variable (or zero if no TAG die and 
other information. 


PES ESESSCRO LL ESESSESE LI ESESESSE 
Fem ee meee rere e eee eee ses ee sees ee seeseesseseesesesesesesosesssosss} 


DBGSL_PNODE_FLINK | 


decececcoecsessseeesseesnosesseosessooseseseosesosese Seeeoeoeoeneoeo + 


' DBGSL_PNODE _BLINK ' 


(camsncsssasssustacnssenesscsbesjocleccsessssscapjosesscosusssrons 


: Unused ‘SB_PNODE_FLAGS ‘SB_PNODE_FCODE : $8 ~-PNODE KIND ! 


pooeeceoeeeesooo}ooso 2a we mam ey St a Se | 


' DBGSL_PNODE_TYPEID H 


+ eeeeoeoeoe ouscdessaseeseenneoueseeeces Seeeeeenoeenene es 


' DBGSL_PNODE _SYMID ' 


¢eer emcee rw es mmr enw erro m etree reo eee eee ema moe nm eee coe n ewes Seeeeoeoeoeoeoeaeo + 


' DBGSL _PNODE_RELOC ' 


' DBGSW_ PNVAR -NCOMPS ‘ DBGSW_PNVAR_ INDEX ' | 


$¢ewem meee new oeocece eueceeecesesescosooeecose ae Co we en me roe om om aan oe me + 


' DBGSL PNVAR_ ~TAGID ' 


tee eeeneeernan = ee SS Seen eoeenouese wma erwe oe ase nr eee aoc wren n eae + 


' DBGSL_PNVAR _COMPLST ' 


Geacecceeeecoscosesessouconessooces See eee eoeoonoeonene2@® Seeeeeoenonaneaoneo a 


‘ DBGSL “PNVAR_DSTPTR ' 


+ eeeceoe SOS SS SS SS SSS SSS SSS SSSSSSSSSSESSSSSSSSSSVSSSSSSSSSSSSISOSBS“O“S“OSOSOSOQ 2S + | 


—OOONOAUNES UN" OOONOUE WN O 


fun—0o 0m 
oon emo uw fF WwW NH = CO 
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50 The following are the meanings of the fields in the VARIANT Type Sub-Node. 
DBGS$B_PNODE_K =~ Must be RSTSK_VARIANT. 

DBGSB~PNODEF CODE -- Must be RSTSK_TYPE VARIANT. 

DBGSL-PNODE-TYPEID <== The Type ID for the variant type. 

DBGSL_PNODE_SYMID ~- Always Zero. 

DBGS$W_PNVAR— INDEX -- ihe ndex of the selected component from 

he set of components for this variant. 

this field always initialized to 1. 

DBGSW_PNVAR_NCOMPS <== The number of he TAG. var in this variant. 

DBGS$L_PNVAR~TAGID -- The SYMID of he AG variable (or zero) 

DBGSL-PNVAR_COMPLST <= Pointer to the | ses of of record ‘components 
in this record var 

DBGSL_PNVAR_DSTPTR <== Pointer to the let “Value DST Record 
for this record variant. 
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H Define the size of the Primary Descriptor Variant Sub-Node. 


LITERAL 
DBGSK_PRIM_SIZE_VARIANT = 10; ! Size of Variant Sub-Node in longwords 
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PRIMARY PARSER STATE TABLE 


The ine (8 Parser (DBGSPRIMARY_PAR aoe : erates off a Ptattecstere 
Machine (FSM) state se which defin e PA a forgets of Primary 
Symbols in the current senguese. 4 Pr ner Symbol consi iHest of i: Dames 
name which acy 1 Reuse 90 pathname qualification, data qualifica 

aay My ting, dere erenci cae? and possibly oroer ed ficars $7, ‘depending 


on the anguage. In P. for exenete, BA 
veh! d Primar SMB L "the _operators na Pri ary Symbol may tne tude 
0 On, enegtty which operators are allowed 
ane” in which, order winey. ere allowed is enquage-Srpendent and this is 
what is speci fied by the Primary Parser State Table. Each state in the 
state + e is represented by gore or more Primary A. State Table | 
Transition Entries, each of which spect ties a@ transition to be taken 
if the current operator is the one specified in the transition entry. 
The format of a Primary Parser State Table Entry is as follows: 


ES SSESOCROELESESSESOLIESESSSEE, 


$e eawens wae eae ceouwne ewes eececeoe See BOOM OO eB ese DEE oe De ST BeOS Ee woe es ee $ | 


, 3 First Primary Parser State Table Transition Entry : 


bower oar uene ose oca non teoewasr eer omen eeeeoeoeo Saw omEKOONmEOEODem S } 
' 


Additional State Table Transition Entries 


Longword with value zero (0) 


‘ 
' 
' 
' 
SSS SSS SSS SSS SOO eoeenenenee eeewrewrrrzrrecerrreerewereeroccewereeweoeeoeeoeeroce + 
' 
' 
eeeeeoe SS SSSSSSSSSSSSSSSSSSSSSVSSSSSSSSSSSSSESSEeS Oe nome wwe o ese wow + 


> << @ eo eene 


~ indtutéuat Primary Parser State Table Transition Entry has this 
ormat: | 


Tose FEST SST Soares LSet ooeresssz10 


e 3 PRIMARYSW_NEXTSTATE { $B_ACTION { $B. OPCODE ' 


‘ 
greet etree e reer om ewm ee mm eer een en eee fem em er omer eos ee + 


NOUS WO 


she whole Primary Parser State Table for a banguage simply consists of 
@ sequence + oncatenated State Table Entries, with one entry per 

state in the F otyesstete Machine. The whole state table is thus a 

vector of transition entries and is spcesee ae rt. Econene zero of 

the state table is the beginning of the state table's Start State, and 

each transition’s next state po nter CPRIMARYSU ONEXT. STATE) is a state 

sapte anges which points to the beginning of thé next state's state 
able entry. 


A pointer to a Primary Parser State Table is declared as follows: 


Be Be Se Se Se Se Se Be Be Be Be Se Se Se Se Se Se Ge Se Se Se Se Fe Fe Se Gs Ge Ge Se Se Se Se Ge Se Se Se Se Se Ss Se Ge Ge Se Se Se Se Ge Se Ge Se Se Se Se Se Se Oe ae 
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PRIMARY TABLE: REF PRIMARYSTABLE 


This declares PRIMARY TABLE to be a block yector which is referenced 


; & } 
; : ; 
>; $331 : as .PRIMARY_T sec STATE_INDEX, field-name] where STATE_INDEX is the 
: © § 4 vector index po nating to the current Primary Parser State Table 
wee 4 Transition Entry. 
: 28% 
. ¢@ ! Define the fields in the Primary parser State Table Transition Entry. Also 
; : : define the declaration macro. 
3 ? 2 FIELD PRIMARYSFLD_DEF = 
; 64341 PRIMARYSB_OPCODE = ( 0, BO. J, ! Operator code which activates this 
3; 6 § : state transition 
3; «66 PRIMARYSB_ACTION = [ 0, B1_ J, ! CASE index for semantic action to be 
3 4344 ' taken during state transition 
3 : ‘ Coenen SEATSTATEet 0, Wi. J! Index of next state after transition 
3s «66 
; 4348 8 MACRO 
5 2 $3 0 PRIMARYSTABLE = BLOCKVECTORC,1,LONG] FIELD(PRIMARYSFLD_DEF) 2%; 
; (4351 
3; «6 5 8 ! Define the allowed values of the PRIMARYSB_ACTION field. These values are 
; 6435 ! CASE indeces which select the semantic action routine to be executed for 
g ? ee 8 ; each state transition. 
3; 6 28 LITERAL 
; ©6435 PRIMARYSK_MIN_ACTI = 1, ! s== Minimum action index 
; 4358 PRIMARYSK_ACT_START GBL = 1, ! Global scope backslash found 
; 4359 0 PRIMARYSK_ACT_GBL_TERM = ¢° ! Terminator after global symbol 
c. & 0 PRIMARYSK_ACT_START_SLASH = 3, ! Backslash after first operand 
; 4361 PRIMARYSK_ACT_START_DOT = 4, | Dot qualification after first operand 
; & ; PRIMARYSK_ACT_START_DOT_PLI = 5, ! * in PL/I 
3; «6 PRIMARYSK_ACT_START_DOT COB = g. 7 in C9805 
pe PRIMARYSK_ACT-START_SUBSCR = 7, ! Subscripting after first operand 
; 4365 PRIMARYSK_ACT_START_SUBSCR_BLI = g. ! Bliss subscript 
3; 6 PRIMARYSK_ACT_START_SUBSCR_PLI = 9, ! PL/I subscript 
3 «66 PRIMARYSK_ACT_START_DEREF = 10, : PASCAL dereference “ 
3; 6 PRIMARYSK_ACT_START_DEREF _PLI = 11, ! PL/I "=>" operator 
; ¢ PRIMARYSK_ACT_START_TERM = 12, ! Terminator after first operand 
; ACT_ 7 = 15, ! Built-in function ca 
4370 0 PRIMARYSK_ACT_START_BIF CALL 15, ! Built-in functi Lt 
3 2 PRIMARYSK_ACT_START_TICR = 48, ! Ada tick operator 
3; 6 PRIMARYSK_ACT_SLASH_SLASH = 14, ! Backslash after previous backslash 
; 4 PRIMARYSK_ACT_SLASH_INVOCNUM = 15, ! snvecat ion Number in pathname 
; «66 PRIMARYSK_ACT_SLASH_DOT = 1g. : Dot qualification after backslash 
3; 6 ed rsh i LB to PLI si7,{} * in PL/I 
; 4 PRIMARYSK_ACT~ SLASH SUBSC = 18. : aubsce pting after backslash 
.?) é PRIMARYSK-ACT-SLASH-SUBSCR_PLI = 19, ! ™ in PL/I 
3; 64 PRIMARYSK_ACT_SLASH_SUBSCR_BLI = 20, ! Bliss subscript after backslash 
3; 6 PRIMARYSK_ACT_SLASH_DEREF = 21, | PASCAL * after backslash | 
:; 4 PRIMARYSK_ACT_SLASH_DEREF _PLI = 22, | PL/I “=>” operator after 
3; 6 ef pet My Ty oe = 25, ! Terminator operator after backslash 
3 2 PRIMARYSK_ACT_SLASH_TICK = 49, ! Ada tick operator 
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: PRINT INFORMATION TABLE 

i 

i The Print Information Table is a blockvector indexed by FCODE 

; which gives pointers to tables and print routine indexes necessary 
: to print primary symbols for a given Language. 

i 

i 17117111 11 

| REDESSSSERCLIESESSESEL TELE ETEE 
: 0 H PRT INFOSL_ROUT_INDEX : 

, toe PRTINFOSL_CHARTBL ! 

' 

i 

! A pointer to an Print Information Table is declared as follows: 

; PRINT_INFO_TABLE: REF PRTINFOSTABLE 

i 

i 

i Define the fields of the Print Information Table entry. Also define the 
: declaration macro. 

f 


1ELD PRIINFOSFLD_DEF = 
PRIINEOSL ROUT INDEX = [ 0, L_ J, 


Be Se Se Oe Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Ge Se Se Ge Ge Ge Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Ge Se Se oe Ge Se Se Ge Ge 


PRT INFOSL_CHARTBL = ws 
TES; 
CRO 
M 4448 PRTINFOSTABLE = BLOCKVECTORCRSTSK_TYPE_MAXIMUM + 1, 2, LONG) 
ree} FIELD(PRTINFOSFLD_DEF) 2%; 
44651 
“ ¢ Define valid PRTINFOSL_ROUT_INDEX Literals. 
4654 LITERAL 
4455 TSK_MIN_ROUT = 0, 
4696 PRTSK_OTHER = 0, 
rr T$K-ARRAY = 1, 
64 g PRTSK_POINTER = ¢° 
445 PRT$K_RECORD = 3, 
4460 PRTSK-RECORD COB s 4, 
4461 PRTSK-POINTER_C s 5, 
446 PRTSK-RECORD C_PLI = g. 
446 PRT$K- VARIANT = 7, 
rec PRT$K-MAX_ROUT = 7; 
44 
rrr : Define valid Print Character Table Indexes. 
44 LITERAL 
£255 PRT$K_BEGIN_CHAR z 0, 
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PRT “END CAR CHAR 
PRT 

PRT ReCPin at renan 
PRT 
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REGISTER DESCRIPTORS 


A Register Descriptor is used to describe the ae yO address of a 
register or of a yee, aeerens wrtnie a reg ster. oe “r — 
: register number, ? byte offset w Wy that regi ole ( 

are the only poss ble values), and a scope number which ind gotes 
to which call frame in the call stack this register belongs. The 
descriptor also contains a ASent nel" value which is used for valid- 
ity checking and for ensuring that a Register Descriptor always has 
@ non-zero value. 


Sogreter Se Descriptors are byte by routine becesté. ADDRESS_TO_REGDESCR 
are later used for various ge ses when ef ca Mas aré examined. 
They are also required Ay routine DBGSSTA_REGISTER_NAME which generates 

the register name for printing. 


A Register Descriptor fits in a single longword. This is the format: 


PED SSSESSSROCRIESESECSEL SELES TER 
Cn ee ie ees 


' DBGSW_REGD_SCOPENUM 1SB_REGD_REGNUM | _SENTINEL ‘OFF: 


A Register Descriptor is declared as follows: 
REGDESCR: DBGSREGDESCR 


oo 
co 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
t 
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MACRO 
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19 i Define the fields of the Register Descriptor. Also define the declaration 
macro. 

1 
13 IELD oat 5 ae FLD_DEF = 

15 DBGS$V_REGD _OFFSET = - V.(0,2) }: : Byte offset from start of register 
16 DBG$V- =REGD. SENTINEL = v_(2,6) J,  ! Sentinel value--must be %x'2D' 
1 DBG$B_R NUM = {[ 0, BT_ 1. ' The actual segteter number 
\8 pegsu. REGD— SCOPENUM =(€ 0, wil ! The register's scope number 
0 

1 

2 


Mrer 


DBGSREGDESCR = BLOCKC1,LONG) FIELD(DBGSREGD_FLD_DEF) 2%; 
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4539 
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RUN-TIME SYMBOL TABLE DEFINITIONS 


This section contains all definitions related to the structure and con- 
tents of the Run-Time Symbol Table (RST) through which the Debugger 
accesses the Debug Syme’ Table (DST) in the user's executable image. 
The RST itself built and accessed entirely through the Symbol-Table 
Access Routines in modules RSTCNTRL and RSTACCESS. 


The RST is the structure through which the DST is accessed, one module 
at atime. This means that for each ‘‘active’’ module in the user's 
program, there is an RST data structure which describes that module 

and all lexical entities and data items in it. This structure, which 

is scattered through the Pesugper’s free memory, contains one entry for 
each Lexical entity and data item in the module's DST. Each RST entry 
contains a pointer to the corresponding DST entry so all the DST entry 
information can be accessed rapidly. In addition, the RST itself is 
hashed by symbol name so that a symbol’s RST and OsT entries can be loc- 
ated rapidly given the symbol name. 


s-32 v4.0- 
CDEBUG.SR 


742 
CJDBGLIB.REQ;1 


roe 


05 
9) 
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i 
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43 RST ENTRY COMMON CORE 

de | 

t? All entries in the Run-Time Symbol Table have the same information in | 

ee8 their first parts. This RST entry ‘‘common core’’ is described here: 

550 | 

551 33 222 BEReSegreea 

33¢ 10 ; $ 6 g 4 g § ; ; 98765432109876543210 

eee aaa aaed Sulabeinoubehabababsbatanaabatenatatenaatenetatenanaten wocecoon+ 

229 0: RSTSL_HASH_FLINK i | 

$57 13 RSTSL_HASH_BLINK i | 

229 2 i RSTSL_SYMCHNPTR : 

361 3 i RSTSL_DSTPTR : 

268 ‘3 RSTSL_UPSCOPEPTR | 

5 Neen ee rrr $ewwoeeoeoooeonn+ 

: 5 : RSTSW_REF COUNT ! Flag bits ! RSTS$B_KIND H 
SSeS 2S 2 S222 222222 228222282222 eeeeee eeereene = 2 @® Fe we see PF See HOB ew ODOT w es eS | 

5 


The hash chain forward and backward Links Link together all RST entries 
for symbols whose names have the same hash value. The hash chain is 
doubly Linked so that RST entries can be removed from the hash chains 
when the whole RST for a module is removed to free up its space. Each 
hash chain has a permanent List head; RST entries in the RST Hash Table 
therefore never have zero hash Links. 


Some RST entries are not in the RST Hash Table, however. Such entries 
are Bene # in the sense that they are created when needed and are 
thrown away when no longer referenced. Examples include pony Data Type 
RST Entries and RST entries with invocation numbers. Such RST entries 
are put on the Temporary RST Entey List. This is a singly Linked List 
which uses the RSTSL_HASH_FLINK field for the Links; RSTSL_HASH_BLINK 
is left zero in this case. 


Sy bal tah ab ab ab ah sh dh dh dh hh ah dh ah ob dh 


ALL_RST entries for a given module are Linked together rts the 


Fo oe oP oP ot ot ad et ot et ak ek ak ee el ek ek eke Sak ak ak Sak Sek ak Sk ek Dek ek ek ek ee ek kk ek ek ek 
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5 RSTSL_SYMCHNPTR pointer in a singly Linked List. The List starts at the 
5 Module RST ary and is terminated by a zero forward link. This list is 
5 traversed when the Module's whole RST is released to make room for an- 

2 other module. 

591 The RSTSL_DSTPTR pointer ives the address of the symbol's DST entry. 
459 The RSTSL_UPSCOPEPTR pointer generally points to the RST entry of the 
459 symbol's “containing’ entity. This usually means the containing lexical 
t2pe entity, but for data record components it means the containing record. 
45 The RSTSB_KIND field identifies what kind of symbol and what kind of RST 
459 entry this is. e possible values are listed at the end of this sec- 
4598 tion. The RSTSW_REFCOUNT field contains a reference count which speci- 
4599 fies how many references (pointers) to this RST entry have been passed 


— 


SOOSCOCOOCOCOOCOCOCOOOSOSOOCOCOSOSOSOSSSOSOOCSOCOOOCOOCOOO OOOO OOO OOOO OOOOOOoOOo 


MACRO 


to the rest of the Debu 
try cannot be released 
used to prevent a “dangling pointer’ problem. 


A pointer to a Run-Time Symbol Table Entry is declared as follows: 


? 


4 
18-Sep-1984 22:59:57 VAX-11 BLi 
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ger. When this count is non-zero, this RST en- 
oO free storage. The reference count is thus 


RSTPTR: REF RSTSENTRY 


This declaration macro collects together all the individual FIELD sets 
declared below for the various kinds of RST entries. 
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RSTSENTRY = BLOCKC,LONG] FIELD(RSTSFLD_CORE ,RSTSFLD_MOD,RSTSFLD_LEX,RSTSFLD_DATA) 2%; 


These are the RST entry common core field definitions. 


FIELD RSTSFLD_CORE = 
SET 


RSTSL_HASH_FLINK 
RSTSL_HASH_ BLINK 
RSTSL_SYMCANPTR 


RSTSL_DSTPTR 
RSTSL_UPSCOPEPTR 


RST$B_KIND 
RST$V~GLOBAL 
RSTSV~NONZLENGTH 


RSTSV_INVOCNUM 


RSTSV_SET_TYPEPTR 


RSTSV_MARKBIT 
RST$V_COBOLGBL 
RSTSV_REGISTER 


RST$W_REF COUNT 
TES; 


ee¢ 


uu 


nr Fenem ene eer 
VUV www Ww NO 
es 


_ 


tee 
a ey 
se © 


v1_(6)],! 
as 


Symbol name hash chain forward Link 

Symbol name hash chain backward Link 

Pointer to the next RST entry belong- 
to the same module as this one 

Pointer to this gyndol 's DST er 

Pointer to the RST entry one level up 
n scope from this one 

The kind of RST entry this is 

Flag set if this is a gieset symbol 

Flag set to TRUE if this symbol has a 
non-zero Length 

Flag set if symbol has invocation num. 

Flag set to indicate that the Data RST 
Entry RSTSL_TYPEPTR field should 
be set during RST build. 


Mark bit available for temporary use 


(such as stopping recursion) 


; Flag bit set to indicate this symbol 


as the COBOL ‘‘global"’ attribute 
Flag set if SYMID represents a register 
Reference count for storage management 


The following are the possible values for the RSTSB_KIND field. This field 
specifies what king of RST entry this is; it thus indicates both what kind of 


the “‘common core’’ part 


ITERAL 
RSTS$K_INVALID 


RST$K_NOTUNI QUE 


0, 


9, 


' 
i 
i 
i 
: symbol the RST entry represents and what the format of the RST entry is after 
i 
L 


Invalid code--cannot occur in RST en- 
try but can be returned by some 
Symbol Table Access routine 

Symbol not unique--cannot occur in RST 
entry but can be returned by the 
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; 6657 : DOGESTA. * pee routine. 

; 46 RST Pou E = 1, ! Module RST e 

; 46 RSTSK_ROUTINE = 2, ! Routine RST. renty 

3; & RSTSK_BLOCK = 3, ' Block RST e cy 

; 661 RSTSK_ENTRY = 8, ! Entr Point "RS entry 

: 666 RSTSK_LABEL = 4, ' Label RST ent cy 

; 6466 RSTSK_LINE = 5, ! Line number RST entry 

> 4664 RSTSK_DATA = 6 ! Data item RST entry 

; 4665 RSTSK-TYPCOMP = 10, i Type component | RST entry 

3 £006 RSTSK_TYPE =7 ! Data type RST 

: 466 RSTSK-VARIANT = 11, i Record variant, set RST entry 

= RSTSK_INVOCNUM = \¢- ! Invocation number RST Entry 

3 § RSTSK_OVERLOAD = 15, ! Overloaded Symbol RST patey 

; 670 RSTSK-KIND_MINIMUM = RSISK_INVALID, ! Minimum possible kind value 
; 4671 RSTSK_KIND_MAXIMUM = RSTSK_OVERLOAD; ! Maximum possible kind value 


4672 0 {ee “ 


WORE EE NRE IED 28 Ce enh AL IEE PE AOL DOE OL BLE, AEE Se BEE EE 


———____ ___—_ _-- - COS ee ee CL 


i 
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; 4673 : RST ENTRY FOR A MODULE i 
; 4676 ‘ i 
oo 3 
: 467 i A module is module is) a @ Module RST Entry of at all times, whether the : 
; 667 : rest of the module is in the RST or not. s Module enrst then points : 
; 46 : to a Linked List of RST pt th for y- reqernine Ah bols in the module ; 
; 6680 : via the RSTSL_SYMCHNPTR point the end of pats Rt is indicated by a 
; 6681 ' zero pointer. . ie oe PUPSCOPEPTR pointer is soa used as an up-scope : 
3; §& ¢ : pointer in a Modul Entry-~there is nothing up-scope from a module. In- ‘ 
; 668 : stead *RSTSL ONXTMODPTR ich oon tes the same location in the RST entry ‘ 
; 468% i as RSTSL_UPSCOPEPTR, {s used to Link atl Me Modu ule RST Entries in the whole 
; 6685 ; program we. a singly t Linked | MY, This List is scanned during RST ini- F 
: $288 tialization and when processing the SHOW MODULES command. i 
: 6688 0 i i 
:; 6689 ‘ 33 222 2211111111171 
; ree 8 0 § H § 6 g 4 : $ 1 § 98765432109876543210 i 
: ree . ; 0 ee ee a Se ee De me om ow Se at ’ ! 
3 ro 744 4 1 ‘ RSTS$L_HASH_BLINK ' ‘ 
° +4 ee ew ce ee me ee a weer er ere tw ewe BP eo wewoerrerwerawe Dee @ Se SRD neenna erm awarnra norco a $+ ‘ 
; £097 9 eee RSTSL_SYMCHNPTR i 
4 4 PRO eee ewe EON ROO ETB RETESET EH HH ET BOSSE OS UE SOOM OB eT wDwD Bees enema ‘ 
: p44 3 ; RSTSL_DSTPTR ' H 
: 4701 : i 6 i RSTSL_NXTMODPTR : ; 
; . Se me me teem ee me me ee om oe eee eam eewere + 

3 4703 0 : 5 : RSTSW_REF COUNT ' Flag bits : RSTSB_KIND ' 

3 4704 0 ' Gewoweeeooweoesooseesosooscoesoo}occocecesosesso}oce 62 oD om ee Se mm ee + 

3 ri 44 3 : 6 $ RSTSL_SAT_PTR ' 

4 4 sce Ee ET Te SCE BSED resea ns ZO SwreEenTDweeVwrercHSE es Pe enesreewrae Seo sean new eso eaos eee + 

: {4 2 7 H RSTSL_PCTBL “BASE H 

: 4709 : i 8 i RSTSL_MODRSTSIZ i 

: 4711 0 POs RSTSL _RODSRCTBL i | 

3 cr§ 9 : 10 : Unused iRSTSB_LANGUAGE 1 Flag bits 

; 4715 0 ia i RSTSL_MODPCTBL : 

; ab ° 2: RSTSL_BASEVA : 

: 6719 0 BS Ss Unused { SB_IMGFILCHAN } 

3 47 0 ' Pweerenwocrmnenr sere mee w ow c owe ETO Be MEE e nce Dewees} wacom mown oawe + 

i 

3; 667 ‘ 9 i The RSTSL_MODPCTBL field points to a table of pointers to the PC-Corre- 

: 6726 ‘ lation Table DST records for this module (used for PC to Line number 

; 4725 : correlation gnd yice versa). “The first cell of this table (namely 

: 67 $ ! MOD_PC_TBLCOJ) gives the number raf re seree ation teele pat cr cores in 

; «647 : the sodule s DST, and ais $ remaining cells (i.e., mo TBLC1 ag 

; 6728 : MOD_PC_TBLC.MOD _PC_T 0)}) contain pointers to those SST. records. Each 

: 4729 0 ; celT i5 one rota If there are no PC-Correlation Table DST records 
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for a given module, the RSTSL_MODPCTBL field is zero. 


PC-Correlation Table DST records need + have any special order or 
nesting with respect to the DST records for routines and lexical blocks 
and are therefore viewed as Belone ng to the module as a whole. The 
PC-Correlation Tables for a module are scanned by mg oy them in the 
order * their pointers in the RSTSL_MODPCTBL table. The addresses 


SEPP EEE ESE 
SSNS NNN 
Vrtwn— 


given oy. the PC Correlation Table DST records are relative. S the value 

of the RSTSL_PCTBL_BASE field, which contains the address of the lowest ‘ 

i address routine in the module. 
4741 The RSTSL fons RCTBL field go"ets to a table of pesnters to the Source 
474 Line torselont we shite Rec gra s for this module. first cell of this ‘ 
474 table +h eLf0)) ) contping re Mey of Source Line Servetar : 
4744 tion DST Record ; ey th ule 8 nd gh § remaining cells (i.e., : 
4745 RODSCRTBLE! through MODSRETBL RODSRCTBCL J}) contain pointers to those : 
ores DST records. Each cell in the table is a lLonqword. If there are no i 
ret such DST records at “alle the RSTS$L “RODSRCTBL ield is zero. i 
4749 The aenery blocks pginted to by RSTSL_MODPCTBL and RSTSL_MODSCRIBL both 
4750 have the following format : 
t783 
475 33 222 221111111111 
0 § H 5 6 é 4 4 g 1 § 98765432109876543210 i 

bf monmn mmm noensaosesnacaemannmenranene ner eoe ne nawnee SE ete an ee is ee me eS em ee ae ee ee ee ee + ‘ 

4757 0 : Number of such DST records for module : : 
4758 docwerw semen orn ec cw ee ecores soeeese ena eB Oe a> > ene eeeewe er ee eres eer er 2 eS Pee eee ee = oo4+ ‘ 
4759 : : ‘ 
4760 : : ; 
$70) a ‘ Pointers to module's PC-Correlation Table DST Records ' 
rth t4 on or Source Line Correlation DST Records 
4765 a. i i 
¢ eee eeer once wee see 2 ee ee es @ eo a —_Ss eres ae eve enrnwrae = a a a ee ee ee ‘ 

afe9 i 


ey 
i 
a 
; 6 
> 6756 

> 4755 

> 4756 
; 0 
: 0 
iy 
He 
3 
a 
4 
; 0 
: 0 


When registers are examined using a numbered sco : eeek does not corre- 
spond to ony routine in the RST, a dummy Module Ms is created to 
represent that scope. In such an RST onte the ast DNUMSCP bit is 
a to distinguish” it from other Module RST Entries. In pedi tion. the 
scope number (the —™ of call frames from the top of the call stack) 
of the desired s rath is stored in the RSTSL_MODSCP field. This field 
overlays the oo L_MODRSTS)2 | ag d, which i§ not needed in this case. 
The name of such is just the fetes oy number in decimal ASCII. 
These special iy acy , BF, are rth r¢ he GET REG STER SYMID 
rout ine and are recognized by the DBGSSTA_SETCONTEXT Foutine, Both in 


This set of field declarations includes all fields outside the RST common core 
used in the Module RST Entry. 


ee ee ee ee 


iy 


FIELD nsvorp "0D = 


ASTSL -NXTMODPTR = bee 4, 
RSTSL-SAT_PTR 


RSTSL_PCTBL_BASE= C 7, 
RSTSL_MODRSTSIZ = C 8, 


RSTSL_MODSCPNUM = C 8, 
RSTSL_MODSRCTBL = C 9, 


RSTSV_MOD_IN RST= 


RSTSV_MODSET 1 
RSTSV_ANONMOD 


RSTSV_MODNUMSCP = [ 
RSTSV_SHARE_IMAGE=[ 
RSTSV_OLDPLIFLAG= 


tk tek tl ek de kkk ek ek 


RSTSB_LANGUAGE = f 10, 
RSTSL_MODPCTBL = (C 11 
12, 

E 18: 


RSTSL_BASEVA 
RST$B_ IMGF IL CHAN= 
TES; 


LITERAL 


CNAVEWN —OOONOUS WN oO 


RSTSK_MODENTSIZ = 12 


Sy SEUSS ROR SS SESS SPOR SSSES 
GOOOSOSOSSOSOSOSSOSOSOSOSOSSSOSCOCOOOOOOOOOOOOOCOOOOOOOOCO 


F ak aeh-k- te b-Bd--B-k Dk dD de de ek Dd 


RST$K~SHARED_MODENTSIZ = 14; 


ss 
EE EE EEE EE EEE SESE EEE ES eS eS 
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Pointer to the next Module RST Entry 

Pointer to this soevie ; Static 
Address ou AT) 

The base eddress for the © or tests orem 
by orrelation 

The total Ba: n bytes of a te 
for this NY a ing only by the 


$s now — d 
The ope number if the —, bit 
cribed below is 
Pointer to By ~ ° polarers to the 
e's Source Line Correlation 
DST , a2 - (or zero) 
indicating this module is SET 
indicating module is in the RST 
indicating this is the ‘anonymous 
module’’ containing all unclaimed 
tngice symbols. 
be cating that this is a special 
T entry for a numbered scope 
Nadicot ing that this is a shared 


indicating this is a PL/I module 

compiled with an old compiler 

which generates incorrect VAX 

standard array descriptors 

The Language of this module 

Pointer to a table of pointers to the 
module's PC-Correlation Table 
OST records (or zero). 

The base address of a shared image 

The executable shored image file 

channel number 
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Flag 
Flag 
Flag 


: Define a symbolic name for the size of the Module RST Entry in Longwords. 


Size of Module RST Entry 
Size 2 e Rerse Image Module RST 
ntry 


—_—_— 


ESE Reape Seo SSRN eee ere Se 


BREE P REEL EEE REEEEEPEEP EP E Ee 
0 09 Go 09 Go Co. CD 


DAMMAM 


SSESES 


VESCHMM RES, SHB 


RST ENTRY FOR A ROUTINE 


Entry has an up~ecoge pointer (RST 
~ for the containing lexical entity. That can be a module, a 

-.. yee or another routine. i start tne end addresses of th 
ode are also given in the RST entr There is also a Stat 


ne, and there tatic Sgr pee ater which points to 
Static Link osF record (or 


Record. The Routine RST 
module is built. 


ES SSESOPSEETUSSSSSSE RITES ESSE 


ree Swe BEE TOTEM SS SESE RESO SSO SEES BENDS eee ens e wow seme > 


: RSTSL_HASH_FLINK ' 


Goocccosceowcoooecresowonwssesoocesooeceosesesocosccescocscccceco$ 


' RSTSL_HASH_BLINK ' 


Groeeoeseeescceseseosoowenrsesoseesosessosesceseccoscocesscescoo$ 


RSTSL_SYMCHNPTR 


Pree ee sce eee te ee OH EO OR OORT RB SOK NM eS Ewe Bee eB e + 


: RSTSL_DSTPTR ' 


gw ween ewme cee aen eo noenmeaee scan awr answer ewes eeeoeeoeoee eecececeenweoecer=e soc een + 


‘ RSTSL_UPSCOPEPTR ' 


Ne ee ee ers + 


: RSTSW_REF COUNT i Flag bits RSTSB_ KIND ' 


Geocecoeeseooescoooossooososooos}oocesossooseson}oooeccesceccees$ 


: RSTSL_ STARTADDR ' 


Gocececesoeceseseseessescecssese See eeeeeeneo@ eSeeeeeoeeeo wees esses ea = $ 


: RSTSL “ENDADDR- H 


Goweeseuceoueossseesesseoussseuseseceusesasesesesseso eSeeeeeeeoeeeo + 


: RSTSL -RTNSATPTR ' 


$eeweceneene eeeeoeoeoe Seeeeeeoeoeoeoeoeo Seeeeeoeeenene Cowen wwe ee ee re eee S 


: “RSTSL STATIC LINK ' 


decoccoossouesesoevoeescosoessoesecosessosceso eeeeoe Seee eee eeeoeeee@ > 


: RSTSL_BREAKADDR ' 


twee rere ocen are ere sae mews onanesenes eeeeoeoeoeee eee ween nn en en wmamenwn ann} 


ntry is always built when the RST for a 


oonewe wan —- & 


— 
So 


Entries. The individual illustrations s 
FIELD RSTSFLD _LEX = 


—— * 
9,°L__], 
front, 


A a ee ee ee ee ee 


Lexical entity start sattrese 
Lexical entity a address 

Address of Rout SAT entr 
RSTSL-STATIC_LINK 
RSTSL-BREAKADDR = 


The RST entry for a routine has the format shown here. Each Routine RST 
L Mas * $4 bet which points to the RST 


Address Table ( “y nter which ints > the AT — for ais rout= 
he routine's 

ero) The routine breakpoint address is 

also kept in the RST E pete 5 address on Ay set from a Prolog DS 


This set of field declarations ene ludos the [totes outside the RST common core 
used in the Routine, Lexical Block Entry Point, Label, and Line Number RST 
ow which RST entries use which fields. 


Address of Static Link DST record or 0 
Routine breakpoint address (start 


=32 V 
: COEBU 


$n 308GLI8. REQ;1 


fo 


Nu 


———e 


SS 
Se Ge Ge Ge Fe Se Se Ge Se Se Ge ee Ge oe 


¢ 

4 TES; 

¢831 

4 38 ! Define s me 

: Be ALL Lengths 

4 CITERAL 

4 3$ RSTSK_ROUT 
rt 2 | RSTSK_LEXE 
48 RSTSK_EPTE 
4900 RSTSK_LBLE 
4901 RSTSK_LINE 


Lic names for 
are expressed 


i 


i 
14 
7, 
8; 


he lengths of the 
n longwords. 
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1 Bliss 
VEess$oua28 
address, start address + “iF 
address (ren Prolog DST Record) 


lexical entity RST entries. 


of Routine RST Entry 
of Lexical Block RST Entry 
of Entry Point RST Entr cy 
of Instruction Label RST Entry 
of Line Number RST Entry 
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s 4 § ‘ RST ENTRY FOR A LEXICAL BLOCK 

i : 

: 4905 i 

3.6 (Cg : The RST ongry for a lexical oo has the same format as that for a 
3 & : routine a7 ain the up=scope pointer ere. to the RST entry of the 
3; (6 i containing exical entity, and the s and end addresses of the 
ee | i Block's code ore aiven, the Lentcet “Block” RST Entry is always built 
3 red : when the RST for the whole module is 

; i3i¢ i 

F 491 ‘ 11 1 1 171 

43h PESSSASASSELIEESESEEREL IEEE 
3 a3? Sa ee RSTSL_HASH_FLINK i 
4 4 Som naansa reo meneame mew one we Se Se 2wccelseqecesseusneeessensesssuuses 
3 4319 : 1 ; RSTSL_HASH_BLINK H 
; 49 1 2. i RSTSL_SYMCHNPTR i 
; 49 § ee. : RSTSL_DSTPTR i 
> 4925 a ty RSTSL_UPSCOPEPTR 
P+ 49 $ ' & eo ee ce (Be ee ee ee ne ee esecoesceocceesceson$ cocecesvcesceco}occoeco ee ee oe aoe} 
3 49 $ 5 : RSTSW_REF COUNT H Flag bits + RSTSB_KIND : 
3 49 ' ¢eeoewreececce om a ee te ee Sr ee ee ee ae eet me ees ey em + eeeee wow ewan oh 
: re 6 ! RSTSL _STARTADDR H 
> (4931 2 e's “RSTSL_ENDADOR ; 
5 49 2 0 ' toe swe ese wesw erececocesooeoccoscoescoocccessa: ee + 


bk ee ee ee 


oon ove wn —- ©& 


— 
o 
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RST ENTRY FOR AN ENTRY POINT 


The RST entry for an entry point (i.e., an ® otternete point through which 
@ routine can be called) $ owe & here. 4 up-scope pointer points to 
the RST re _ the containing ef cal_ entity. An entry point has no 

£ qaten t_ and therefore its RST entry “has ony 8 @ start address. 

phe ee ntry Point RST Entry is always built when the whole module's RST is 


TOSERES ESET oar ose 


} 117 
2109876543210 


Pence nce noon mon momen nee eee wen wwe mwa ean note wee neo meee mm + 
: RSTSL_HASH_FLINK : 
‘ RSTSL_HASH_BLINK ‘ 
‘ RSTSL_ SYMCHNPTR H 
‘ RSTSL “DSTPTR : 
‘ RSTSL ~UPSCOPEPTR 4 ' 
} RSTSW_REF COUNT 1 Flag bits ' RSTS$B_ KIND — ' 
RSTSL_STARTADOR i 
a eeneccecosooosocoososooessoooossoscococsooesseccesseso 
' unused ' 
¢ eeeecoeoeeo SS SSeS SOG eoeooneeneoe eSeeeeoeoeeoneeo cone esee aw ase creme e mace + 
: unused ' 
teeweeroerce cme enn once SSS OO RT OM OO EE + 
‘ unused ' 
or wr nm mn srwocnewseme a I a ae + 
‘ RSTSL -BREAKADOR H 


-Sep- 2:59:57 1 Bliss-32 V4.0-742 
Hebe $3:23i00  “S3sSSnGassscoceue: snc ioacu 6. REO;1 
RST ENTRY FOR AN INSTRUCTION LABEL 


' 
: i 
s ' 
; 4975 : The RST entry, for a label (which Labels a point in the user's code) is 
; «497 : shown here. up=scope pointer points to the RST entry of the con- 
; $3f } taining Cexicatventity. e ncee Label no ond sdaress 189 o cnere ts 
; on start address in the entry; : 
; Z : Label. RST Entry is always built when’ the whole module’s RST is built. 
; 49 ; 
; #49 : 1127331371 
: es Of TOGRFESESE TE oat eS bat oe resssere 
; rt ey ae RSTSL_HASH_FLINK H 
Geoceccceesosooesesesoseoocsssoosososeccosoesecosce eseeoeoeo eeeeeon oo 
3 388 a oS RSTSL_HASH_BL INK 
Py 4 9 ' Gowocccceseseseveesesesoosceesoo Seeeeeeeeene wen ews memes oe eee ere m mae + 
; ype a RSTSL “SYMCHNPTR ‘ 
Py 499 ' Ne eee Se eeeeeeoenee & 
; «499 ‘= e-ce RSTSL_OSTPTR ‘ 
e 499 ' $e eww oe woeon annem a sw maar ewoencan Seeeeeeeeene Seen esowma sneer on ees ocean ame $ 
; 64996 ei we RSTSL “UPSCOPEPTR ' 
3 4995 ' rere eee esecoe eeecececocooovesoo$}coceececoccecon}ocesoos eececee wood 
3; & ye he RSTSW_REF COUNT i Flag bits { RSTSB_KIND ; 
3 499 ' tener ene ees er eon sewn cmon ee me aero f estore rc eweosceoees -woesreeer sn enemnmeoece + 
; 4998 ee 4. RSTSL_STARTADOR ' 
3 4999 ' dow e were rom sec erm ema srwsw emo emma error me HER DBO EMR OO HERE eT ee + 


4 
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RST ENTRY FOR A LINE NUMBER 


The RST ory for a Line number has the Foract shown here. The up-scope 
pointer points to the RST entry of the containing lexical entity (always 
@ routine or a block). Both the start and the end address are iven. 
Line Number RST Entries are not built when the whole module's RST is 
built, however; there are too ane Lines in a pre ram to make this prac- 
tical. Instead each Line Number RST Entry is Built when the correspond- 
"7 Line number is referenced through the Symbol Table Access routines. 
A Gummy Label DST Record for the Line Number is built in the same memory 
block as the Line Number RST entry, The RST entry points to this DST 
record and the DST record's name sg'g contains the Line number as a 
counted ASCII string (e.g. "ZLINE 25.2"). 


RESOCSSS CRORE OSESSSSORS ESSE SE 
Feoeooocoseseooeoooesesoosessssesssesosesoseso=s esceoecoooece seareot 


RSTSL_HASH_FLINK 


ewe ene enone w oe roocee en ees ec es eet et eee seem ean eee esee san oetemoane eet 


RSTSL_HASH_BLINK 


+ Seee eee ooenenenenoe SSS SSSSSSSSSSSSSSSSSSSSSSSSSS“SISSSOSSISIS“OS“OSOSOSS + 


' RSTSL_SYMCHNPTR ' 


Poanaaae BO rere s eet een esse ec oS eee eet ewes eon eB eewer seer eeT Ss weanvece > 


RSTSL_DSTPTR 


SOS CS SOO OREO SEDER De OED OR Tw ME SE SE ema (8 2D Oe SD Se OD Oe Oe om ee te me oe oe ee + 


+ 
RSTSL_UPSCOPEPTR 


Seema eee eseneas} 


powwow enww now enn once eoeeeceonsee $eweononcccecoce + 
RSTS$W_REF COUNT H Flag bits ‘ RSTSB_KIND H 


RSTSL_STARTADDR i 
$e ce wm eww ramen enero wate Ba mow DEE TE HEED ODEO Sete ne mone moaae 


RSTSL_ENDADDR 
fm ee ce ce ee ee ewe we ee ewe ee ew eo fete wwe ee ee eee + 


IAAI AAT RO MOPOPININONONODYD 2 2 SS 


SAFUNSISSSSVRORON LS SeNenrunso 


CGOOOOOOOCOCOCOCOOOOOOOOOoOOoCoOoOooO 


no uw F WON | OC 


DPPPAAAAANAMMUIUT 


i 

i 
1 
: $083 8 
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HES 


4 
13-5 “1984 22:59:57 VAX-11 Bliss<-32 V4.0-742 
1 355-138 33:23:00 -825 $DUAZB: (DEBUG. SRCJDBGLIB.REQ; 1 


RST ENTRY FOR A DATA SYMBOL 


SSeS 


The RST a for a data symbol has the voract yous here. 7 upr scope 
pointer po nts to the RST entry for the containing lexical entity (i.e., 
ule, routine, or lexical block) or, if this is a data component, to 
the RSf entry for fhe consatoing data object. The Data Symbol RST Entry 

also has a Type Pointer (RSTSL_TYPEPTR). For simple data types (those 
defined by one-byte type codes or standard descriptors) this pointer is 
zero, but for more geroses data types (records, variants, and enumera- 
tion types) this pointer points to the RST entry for that dete type. 
If the type pointer is zero, the type can be found directly in the data 
symbol's DST entry. 


ARRERRE RRR ROG 


wi 
OOONAUE Wit 


H } 

3 ; 

3 : 

; : 

3 : 

; : 

F : 

; | 

; : 

: : 

; 4 

3 : 

; : 

: 8088 8 3 2222222210117 1991 

3 bee 8 } 1 3 § A 6 g 4 : g 1 § 98765432109876543210 

; 2097 9 ae RSTSL_HASH_FLINK : 

; i : Pee i RSTSL_HASH_BLINK : 

; 061 0 ee. i RSTSL_SYMCHNPTR i 

; S068 2 fae i RSTSL_DSTPTR i 

; 2068 : i 6 i RSTSL_UPSCOPEPTR : i 

; S067 9 ; 5 : RST$W_REF COUNT i___Flag bits i__RSTSB_KIND : 

; 2069 0 i 6 i RSTSL_TYPEPTR i 

; 3071 9 i 

3 Ore 0 ‘ 

; $073 0 ! 

; 5074 O ! This set of field declarations includes the fields outside the RST common core 
: apr? 0 ! used in the Data Symbol, Data Type Component, Data Type, Variant Set, and 

; ap78 : savecetton tunbor 75 MA sala he individual illustrations show which RST 
: 5078 0 i ° 

: S078 0 FIELD RSTOFUD_pATA = 

; 2085 6 RSTSL_TYPEPTR =( 6, L_ J], ! A pointer to the Data Type RST Entry 
: 2086 0 : which gives the data type of this 
Be Pon tet site: aeeeeees Sere 
3 : ° . 

3 085 RSTSB_F CODE =(€6, 60.1], ! The “Format on of a Data Type RST 
; O38 Entry-- ndicates nature of type: 
; ! array, c. record, etc. 

; 0. RSTSW_TYPREFCNT = C 6, WIL), ! The nuaber of Data RST Entries that 
; 5089 ! reference this Type RST Entry 

: $090 RSTSL_TYPREFTBL = f Ta he }: ! Pointer to Type Reference Table 

3 44 RSTSL_BITSIZE =( 8 Lt. J, ; The ton em SS Site of data items of 
3 ! a e 

; 2098 RSTSL_DST_TYP_REC_PTR = ! A pointer to the DST record containing 


i 


SSS 


pe em fe lew lana lala ala lala lalololololololeleleloalalol ola) 


Se Se Se Oe Ge FH Se Sse Ge FH Se Os Oe Se Se Se Se Ge Se Se Ss Se Ge Oe Se Se Oe es 
PUPP DVPUDVIVSIUSUPVLVSVSVSIVSUSVSVSVSVS VS IOSISVSISISISIS 


et ot st = 2 = = “a as 2s 2 8 to 


MN 2 2 2 MOO OO OCCOCOCO 


$ep-1984 22:5 VAX-11 Bliss-32 V4.0 
Hose 30-198 35:45:00 “SSSSSDUA28 CoeBUG; see 1OBGLIB.REO; 1 
ut de : the -pabedsed typesspes de described 
: by the DEBUG buil cord 
i Kind to by RSTSL “DSTPTR, 
RSTSL_TYPCOMPCNT= (10, L_ J, ! The number of record components if 
i this is a data record typ 
RSTSA_TYPCOMPLST= {[ 11, A_ J], The start of : een dl of record. compon- 
) 
RSTSL_VARSETCNT = C 2, L_ J, i The nuaber of distinct variants in 
i this record variant set 
RSTSL_VARTAGPTR = C 4, L_ J, i A pointer to the RST entry of the tag 
i ariable for this variant set 
RSTSA_VARSETTBL = C 6, A_ J, i The start of a table of variant set 
; members, giving the tag value and 
i component List for each variant. 
i The desired invocation number 


RSTSL_INVOCNUM = [ 6, L_ J 
TES; 


! Declare symbolic names for the lengths of the various data, type, and 
invocation number RST entries. ALl Lengths are in longwords. 


LITERAL 
RSTSK_DATENTSIZ = 7, 


RSTSK_OLENTSIZ = 6 


! Size of the Data Symbol RST Entry and 
‘ the Type Component RST Ent ery 
! Size of the Overloaded Symbol RST Entry 


eee 
. 
w” 
- 
N 
@ 


RSTSK-TYPENTSIZ = { i of the Data Type RST Entry 
RSTSK_VARENTSIZ = 6 ! Size of the Variant Set RST Entry 
RSTSK_INVENTSIZ = 7; ! Size of Invocation musher RST Entry 
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RST ENTRY FOR A DATA TYPE COMPONENT 


The RST engry for a data type component has the format shown here. A 
component’’ in this sense is a record component, one of a set of vari- 
ants, or one of the enumeration Literals of an enumeration type. The 
interpretation of a data type component is thus dependent on the ‘'type 
kind’’ of the containing data type. 


The up-scope pointer always points to the RST oneey for the data type to 
which this is a component. ata Type Component RST Entries are always 
built when the RST for the whole module is built. 


Like the Data Item RST Entry, the this RST entry also has a type pointer 
which specifies the data type of the component. This is zero for simple 
types or a pointer to a Data Type RST Entry for a more complex data type 


MEUN—OOONOULS wiry 


Be Se Se Se Se Se Se Se Se Se Ge Se Se Ge Ft Se Se Se Ge Ge Se Ge Ge SF Se Ge Ge FHS Se Ge Se Se Fe Se Se Geese 

DUPVDVDVLUDUDVPVDVDV DUST SUSUSUSUS USVI SUSU ISI SISISISISISISISIOIIST 
a as a a a 4 st a a 4 a a —» 9 a ts 2 ts 2 2 
COOQCOCOCOCOCOOCCOCOCOCCOOCOCO OCC OOCOOCOOOOOOCOOOoOoOOoOO 


9 (such as records). 
i 
4 332 222 Seb eaeeanead 
“8 109 ; 5 6 g 4 : g 1 98765432109876543210 
45 teeeene ween nnn n nee - 2-2-2 +--+ ee ee o------ on-------4 
46 o3 RSTSL_HASH_FLINK 
47 peewwwwewwwne enn ne een ne a + 
48 bo 4 RSTSL_HASH_BLINK 
49 oo ee eerewse cose ee wewooooooooon+ 
50 5 RSTSL_SYMCHNPTR : 
51 oe eee e ewe w wenn wenn senescence ene e neon eee enon ene eoeceeeee + | 
2§ --§ RSTSL_DSTPTR 
5 teoweoooroooee-- lta cocceoe= Saale aaa aed 
54 &§ RSTSL_UPSCOPEPTR : 
55 et ey Se it teecccceceecoone + 
56 As RSTSW_REF COUNT : Flag bits { RSTS$B_KIND- : 
57 poem eo we eee e ec eee mens eeccon et Se Oe ee eoceets 
58 6 : RSTSL_TYPEPTR : 
59 poem eer ews eceee wom e rm ene ee ete ee ee ee nee ee eae + 


5 } 
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3 : RST ENTRY FOR A DATA TYPE 

. ' 

3 | The RST entry for a data type has the format shown here. Not all data 

3 6 } types have RST entries--those described by qre~syte type codes or stand- 

: $8 : ard descriptors do ne $F Data Type RST Entries are used for all record, 

3 6 : variant, and enumeration type data types. however. The up-scope pointer 

; 168 : always points to the RST entry for the lexical entity (module, routine, 

3 199 ' or lexical block) in which the data type was declared. A data type need 

; 170 ‘ not have a name, however--it can be anonymous as it is in a PL/I or 

3 171 8 ! COBOL record declaration. Data Type RST Entries for records, variants, 

3 \7¢ : and enumeration types are built when the RST as a whole is built. All 

; HE 4 : other Data Type RST Entries are built only when needed. | 
: $175 0 i | 
3 17 ‘ 3 222 -evanvwepawttt 
; 5177 0 05a s es ees Teo aos k Ss bibo876563210 | 
$ 180 0 SA Res RSTSL_HASH_FLINK : 

3 181 0 ' $e eet aeons wenn nna sce tan Ens sna ewer rowoenE sro mane ar reer naneoe eee eeoee > 

3 ise 0 ‘ 1 H RSTSL_HASH_BLINK f 

$ 184 0 te 2x RSTSL_SYMCHNPTR —_ 

4 51 85 0 ' fo mar rama nw arent ear eet omnes ters emer enemas eeee cee om et wm en ee em ee em ee >} 

3 S187 8 4% RSTSL_DSTPTR H 

: 4 $ewrorenmecwe re enw eres e ee oercen mn eer cee me mee mene wren ee enero nescesecre anaes 

3 188 0 ' 64 : RSTSL_UPSCOPEPTR ' 

3 51 &9 0 ' Ce eee Sa 

3 5191 5 : RSTSW_REF COUNT : Flag bits ; RSTSB_KIND H 

3 > peeescene eee eee een nes SS ap ee oe oe ee = se ae wm oe Seer er eet eer ee = oo See ee ee Sw Se eS Sw 

$ 192 0 ae MR. RSTS$W_TYPREF CNT : Unused | RSTSB_FCODE : 

D4 519 0 ' + eeeeeoeoeo@ Seceee scares enna eer en eee tecere senses ecenee ter ene oma ace aeneae} | 
; 5194 0 ! —_— RSTSL_TYPREF TBL : | 
° 5195 0 ‘ $ere reer wm mee mene ec mzreer reece sceaccecce = eeanwreanweceroeo= Desa ane rawonanmas amma n + j 
; 3198 0 ae mee RSTSL_BITSIZE : 
b+ 19 0 ' ¢ er er emo wmae er scaowmenr cer aewae wre m oer mew sew oes eer erm nen ewme wre ern ew anne eeeeoe + 

; $198 8 ze ee RSTSL_DST_TYP_REC_PTR : 

2 5199 ' ¢ ee ee ewer eee nme wee remem eee wr ween en ewan noes Sees een awe meee ee emo ee + 

3 3500 .- ee -4 RSTSL_TYPCOMPCNT : 

° 01 ' bower mo wmone nce nacesenreanesneeorwoae seem on noe ocerawonoemoweow eeecee eee 

3 4 6 11 ‘ RSTSA_TYPCOMPLST 

; 06 Pd se 

3 : 05 0 : : Pointers to the Type Congenent RST Entries of : 

3 06 0 | oe : the components of this record } 

3 2 07 8 ! : or to the Data Item RST Entries of the elements ; 

3 08 . ee : of this enumeration type ' 

: 5209 ! ; (Not used for other kinds of data types) 

BiB Bae : 

; 12 0 ote 

3 \¢ ' ¢ eer macrneranaar ner crnaowneeeonwnecezrenee @eanrnwrwovornzr sz w2Fee2xnre2nwoerreaeea = — wm SoD + 

3 14 : 

2 2 15 8 ' 

: 16 ‘eee 
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| 
| 
| 
| 


; These are the possible values for the RSTSB_FCODE field. 


LITERAL 
--- ~¥ nn possible FCODE value 
Arra 


A) 
RSTSK_TYPE_MAXIMUM = 22; --- Maximum RAF FCODE value 


3 

; 1 RST : 

3 § RST = 1, i pe 

3 RSTSK_ PE a ¢° i Atomic Y x atendore type 

3 4 RSTSK_ WE-ATOR = 3, i VAX standard cease ptor type 

3 5 RSTSK_TYPE_ENUM = 4, ! Enumeration type 

3 § RSTSK_TYPE_PICT = 5, i Picture type oe My Cobol and PL/I) 
: RSTSK_TYPE_TPTR = g. i Typed pointer type 

: : RSTSKTTYPESSET = 7, i Record data type 

3 RSTSK_TYPE_SET = g. i Set type 

3 RSTSK_TYPE_SUBRNG = i Subrange data type 

3 1 : 3 5 Unusede-avai lab e for future use 
3 ¢ 4 ; = 11, | Unused--available for future use 
; RSTSK_TYPE_COBHACK = \¢- i Cobol Hack data item 

3 RSTSK_TYPE_BLIDATA = 135, ! Bliss data item 

3 5 RSTSK_TYPE_BLIFLD = 14, ! Bliss field 

: RSTSK_TYPE_FILE = 15, ! File data type (as in Pascal) 

3 0 RSTSK_TYPE_PTR = 16. i Untyped pointer data type 

3 8 0 RSTSK_TYPE_AREA = 17, i Area type 

; 5239 RSTSK_TYPE_OFFSET = 18. i Offset = ee 

3 40 Re ead WOE Annet = 19, i! Variant Set (as in Pascal and ADA) 
3 41 RST YPE_RFA = 20, ! Record file address type 

3 ¢g 0 RSTSK_TYPE =SELF -REL_LAB = 21, | Self relative gebes 

>; 524635 0 RSTSK_TYPE_TASK = 22, i Task type (as in 

; 5244 0 i 

>; 52465 0 
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RST ENTRY FOR A RECORD VARIANT SET 


The RST entry for a record variant set has the format shown here. A 
¢ variant set is the set of variants of some data record which 

are d % nguished by the same tag var jeale. This RST entry does not 
appear free-standing--it is always built insi 

ated for the containing record's Data Type RST Entry. Its hash Links 
symbol chain pointer, and up=scope pointers are thus not used. Its DST 
pointer points to the variant set's Variant-Set Begin DST record. The 
entry has qxtre fields which point to the tag variable’s RST entry and 
give the List of individual record variants within the set. 


PES SSESSCRO LP OSUSSESE LIES ESSE 


$wroem ner ese swe em remem wre nreewro rear ernn area nnerenermee ere me cen em wnm an ooe + 


RSTSL_HASH_FLINK 


berm nr eew owe we wme ene ee ser ereen nse sec en owen eer seceomeneanaeweccan eseeeoee a th 


RSTSL_HASH_BLINK 


Peotone wm eee wroe sos esse ere smn ee eer ase esa coe re es eeezeocwreceracanraccnonewoe a 


RSTSL_VARSETCNT 


foment ene ence moma sone we See Eee See Bee eH Bee Bene ome mwon emer wo eee ad 


RSTSL_DSTPTR 


fewer een ewew mas mre amr ewe sce mw ee soe ese ee ero wre rome wme remo mromeeccenzaosa + 


: RSTSL_VARTAGPTR ' 


$row n sce nteo meee trem mm er ee ee ce ser oe pesos esc e see e eee} oerm er ares eceene + 


: RSTSW_REF COUNT t Flag bits ¢ RSTSB_KIND : 


' 
pow ana mente neers ewer onme onan ca ee $e eee rw ee wees wah ae ee ew ee 


RSTSA_VARSETTBL 


Pointers to the Variant Entries (see next page) 
for the variants in this variant set 
(One such pointer per longword) 


beer ere SR SS OEE RR REE ER RE RR EO TOE RSE HOE ORE SEE SCHOO EES + 


WSoseo-196e 22:59:57 VANCHY BLSgsc82 We. 0=742 5 egy PaO 


This is the format of a Variant Entry as pointed se by the Pornrers 
_ the Varia wg RST Entry This entry gives the list of sloeres 

nts which comprise this particular record variant. also 
4 ves @ pointer to the Variant-Value DST record for this a ant. 


PES ScSSSERCETESESESSO RIES TSSSSE 


+ Sete eee ens sean nan wm ewerwrewawrerewree2 ZO aoe Fee e sen 222 Bee eee nana ewe ee aa + 


: RSTSL_VAR_DSTPTR H 


Geoocceeseooooooooossowoosososooesoosoecsssessccescescoccccccocos 


0 
Te RSTSL_VAR_COMPCNT ' 
2 


Gececcoecsoecoeeososssseoousesoosseoeosesessssosessosscoceoesoce + 


RSTSA_VAR_COMPLST 


List of RST pointers to the record 
; components in this variant ; 
‘ (One per longword) 
+ 


Declarations for the fields in the Variant Entry. Also a declaration macro. 
FIELD esr le. VARENT = 
RSTSL_VAR_DSTPTR = 9. - } ! Pointer to Variant-Value DST record 
2: 


i 


RSTSL_VAR_COMPCNT = . i Number of components in this variant 
He VAR_COMPLST = ! Start of component RST pointer List 


MACRO 


Be Se Se Ge Se Ge Se Se Se oe Se Se Se Ss Se Se Ge Se Ge Se Ge Se Se Se Se Ge Se Se Ge SH Se Se Se Ge Se ee 
DPUDPVDIVPVIVLULVLIVSIVIVDVIVSIULVLVSVSVSUSVSVUSVSVSVSISISVSVOSVSVOSVOSVSIOSIOSIOSIOS 


OS tt tt et ot ot et 


SOONOUS WN oO 


RSTSVAR_ENTRY = BLOCKC,LONG) FIELD(RSTSFLD_VARENT) 2%; ! Declaration macro 


Vivre DONOV SUT 


La et 


-~ 


1-50-1944 33:23:00 “SBsbboGadescoteuc:sncioeccie.reo;1 *%* «755 
These definitions have something to do with variant record ta | 


' 

; ables. Unfortunately, no comments were put in to say onsttty 
; what they are used for. 
' 


; Define something or another. 
FIELD RSTSTAG BLOCK _FIELDS = 


SET 
RSTSL_TAG_NUMVALS = 9. L. ].! Number of values to follow (1 or 2) 
RSTSL_TAG_LOWBOUND = “— ™ »i Lower bound value 
i Hh ~'AG_HIGHBOUND = > LZ 3°! Upper bound value 
LITERAL 
RSTSK_TAG_BLOCK_SIZE = 3; ! The size of the tag variable block 
MACRO 


RSTSTAG_LIST = BLOCKVECTORE .RSTSK_TAG BLOCK SIZE) 
FIELDTRSTSTAG_BLOCK_FIELDS) 2%; 


RY 


= 


ov fF WwW NH = SO 
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RST ENTRY FOR AN INVOCATION NUMBER 


The RST entry for an invocation number has the veract shown here. ee 
444 weg E oeeve follows. the ot chat entry to which oe myer ation 


sotengs op hain. If a Data ee © T entry for tor 

e, ay 7 assert B/ cation number, then its RST voc 

bit S$ set and its RST *SYMCHNPTR field points to an sane on ne 

RST Entry. The Invocation Number RST Entr mo ee . oe = desired 

invocation manor A... ox is assumed t 9 apply routine 

in the scope o synbol! . eclaration the eS ise SUPECOPEPTR. field 
fr) 


in the Invocat on ,* ntey points fo the original RST entry 
the object (usually data ten} wit hout an invocation number. The format 
of the Invocation r RST Entry is as follows: 
1398588293 96 5 63340 
38 432109876543210 

Poor een wn wre rene en wer ee waz men we ccm eee nw wesc eran wonweamrwroancne eeeee em me >} 

§ RSTSL_HASH_FLINK ! 

: RSTSL_HASH_BL INK : 
Seeeeeeeeeenoenenonononaneo auaaeeesres — FRE SK RO RO Bw eer troeoerws wwe = ee 2 ee we wwe $ 

: RSTSL_SYMCHNPTR 
eSeeeoeeeeoe Sse we won we we wr Ee nace Ee eee ere ew Bee we ew BE Te eR BOOB Re em Re + 
RSTSL_DSTPTR 

+ —— ne ee seen ween eae eae ewe Pw eT Se ee 7 

‘ RSTSL -UPSCOPEPTR . $ 

i RST$W_REF COUNT | t Flag bits: _RSTSB_KIND : 

: RSTSL_INVOCNUM : 


fewer oe nner ewan ananassae awn wecr nen we naar were we wren eemnewnomanwmewos + 


———— 


| 


ww F&F we nw + OO 
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VEeSS$pUA28sCD 
RST ENTRY FOR AN OVERLOADED SYMBOL 


The RST entry for an p Exar jocdee Symbol has the format shown bel 

An Overloaded Entry_is created for each Overloaded Symbol 
DST record (0S “BVERLOAD) The RST entry is hashed normally so that 
DBGSSTA_GETSYMBOL~ ind it. 


FOSEFES ESE FG oa7 GS. 


} 111 
432109876543210 


$ eewerewrerrererecreowtocerewrewmooenrwteer rt ewe eeaww etree eee we eee emwoeoeeer eee ee ete eee +e 


: RSTSL_HASH_FLINK ' 


Gveccesooscoeusesesssssonoovesoocoseoeoscossssssoosssssosesoesesos 


: RSTSL_HASH_BLINK ' 


SN ee 


RSTSL_SYMCHNPTR 


aes mene SR BOO SHE SEBO SSE SED ES STO HSH SEE STOOD NEw Ere ee ews eeecoeoen aoe 


' RSTSL_DSTPTR ' 


fame momnr oe n ene wee re meme ema erwreron earn eee seme wrsrenec eon wom msm erenresmoe > 


RSTSL_UPSCOPEPTR 


en eesv em aensne eae + See eee eee 


+ 
RSTS$W_REF COUNT : Flag bits | RSTSB_KIND | 


we mmenn crn cre wre re mereowromrewrnnwowan$omoenamraroe sean a generar momma es + 


Ando 


0-74 
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2 P 
CJDBGLIB.REQ;1 


mattis 


nee 
=SSRLESR 


— oe oe st 4 = 


wn -—- © 


LITERAL 


MACRO 
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SCOPE LIST DEFINITIONS 


The scope a asintaine the List of scopes declared with the SET SCOPE 
command. a sas naly linked List pointed to by the global variable 
OPEN. USE m module RSTCNTRL. Each scope entry on the List has this 


PES OSSSSSSOLTOSECSSSOOS ESTOS SE 


prem enmanrrer oc aemenrarere reer ose maoecacoe menace weer wme maser aco ee + 


i eienadienindiniciassnitesintimaneere ces lie te nnininuntinentataibasaiiaminninen 
lecstsincsiacipesdneunsintnesints tees tees teninhendamaumennenaneh 
4” nt 
: SCOPESL _MODPTR ' 


teresa wre essen ae eae en se BR ROE DESEO RSE DECODED BeBe EE DO MEET MOS} 


A pointer to a scope List entry is declared as follows: 
SCOPEPTR: REF SCOPESENTRY 


Declare the scope entry fields and the definition macro. 
IELD ScopeerLe per s 


SCOPESL_FLINK =({ 0, L. ], ! Scope List forward Link or zero 
SCOPESL_STATE =f 1, L. J, ! The scope ‘‘state’’ or kind 
SCOPESL_RSTPTR = ¢° L Je ! Pointer to scope’s own RST entry 

- a heal = » i ! Pointer to scope’s Module RST Entry 
SCOPESK_ENTSIZE = 4; ! Size of scope entry in longwords 


SCOPESENTRY = BLOCKCSCOPESK_ENTSIZE] FIELD(SCOPESFLD_DEF) 2%; 


! These are the possible values of the SCOPESL_STATE field. Each of these val- 
: ues indicates what kind of scope is to be searched to match a given pathname. 


LITERAL 


SCOPESK_NORMAL = 1, ! Normal named scope 

SCOPE $K_NUMBERED= ¢ ' Numbered scope (PC im CALL stack) 
oC 085 ox 6L ORAL = 3, : Si ebe) Symbol Table 
SCOPESK_SETMODS = 4; ! ALL SET modules 


0-74 
SRCJ 


GLIB.REQ;1 


Pane 38) 
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ede 3 B88 Ys 


THE SCREEN DISPLAY ENTRY 


pe Screen Display Envry contains all information needed to A ay nae 
ntries 

ntry 

placed 


splay on the terminal screen. ALL Displa 


are one Uintes d together by § gh ot and backward t nks. Each Display E 


contains all ornation t where the corresponding displa 


SSpGASB sCoseUG. sReioeciia.rea;1 ocd 


on the foots what attributes it has, and what the contents (the text) 
s 


of the displa The text 


Display Line Eran for the text lines that make up the display. 


PET SSSCSOAC ET OESESSCSELSESTOSSSE 


tome oeor renee mens ene tear en acse mB enw rene reat wer oomr enna nme neces eer om } 


: DBGSL_DISP_FLINK ' 


Geoeocoooeceoooeoosesesoooooosoososoooeseesososcsescocceccocecoes 


' DBGSL_DISP_BLINK ' 


(cenesmccsnsssnsssnssnsensssbestelosssssnscspentocsssssesessesnt 


' DBGSW_DISP_FLAGS i SB_DISP_REND { SB_DISP_KIND : 


' Unused i DBG$W_DISP_SCROLL ' 


: DBGSW_DISP_RLEN i DBGSW_DISP_RBEG ' 


: DBGSW_DISP_CLEN ' DBGSW_DISP_CBEG ' 


' DBGSW_DISP_DCOL ' DBGSW_DISP_DROW ' 


' DBGSW_DISP_LINECNT ' DBGSW_DISP_MAX_LINECNT ' 


: DBGSL_DISP_START_LINE_PTR ' 


ee — nS a 


i DBGSL_DISP_END_LINE_PTR ' 


pees m en wnmewe er ene wena senna n aso ns ee eee se Dee eee soem ee Eee eo ee eee} 


H DBGSL_DISP_WINDOW_PTR ' 


pore we were eee Bee ewe weoee seme CSC een ee OB eS ee eee wee oem mos enmteeeean $ 


DBGSL_DISP_ERROR_PTR 


teem cer meee ome ere cweo eee oe om w ee meen em eee ee De em eres were wena wweeore= + 


H DBGSL_DISP_OLDTXT_PTR ' 


Guesovoesssoserssresseeesoussocesoesosesousoousosescoescosceseco +e 


: DBGSL_DISP_MODPTR H 


$eococeeoeseoooeserowesoooosesoossesoorssceoooesooocosoooosoecese + 


: DBGSL_DISP_CENTER ' 


Grocescososooseosoooesseseeusssosesseesoosesesooossesosscossosso ~ 


: DBGSL_DISP_MARKLINE ' 


forearm mente seem new Eee ST SeneE mB eS EB TDOO ES VOU HOBSONS EB EDO MEM BEET aEoE DEBE oe + 


: DBGSL_DISP_MINLINE ' 


gee eee rere ete con ween me rrr ewes ence wwe wmer ewer eee error wmrawreoernsanaane + 


' DBGSL_DISP_MAXL INE ' 


4 SSS SSSSSSSSSSSSSSSSSSSSSSSSSSSVSVSSSSSSVSSSSVSSSSSSSSVSSIS*SSSOSSSSESSESS + 


: DBGSL_DISP_CMDLIST ' 


geese rset enema wwe rE BOONES OK SE SHOES EDSOeSTSOte Derm er ewes scecHe seen waewsas + 


represented by powneers te te. the Screen 


Reign 33:23:00 “S3sSsoGAdsscocauG: snc ioacL18.REO;1 rao 0 


OOS OO 66 6666S 6666650 S SSS SSS SSS SSS SS SSSSSSESSSESSESOOCOSESCSCSSCSS 


15 H 
; oe DBGSA_DISP_NAME 
1 ae 
1 : ' The display name in Counted ASCII ‘ 
1 hae 
cS im = 5 ' 
¢ ' ¢ ew newer eea se een enw een er ome rower es one neces aw man awe Seeeeoeeeeno@ Se 2 
4 ' 
4 ‘ 
' 
$ : ALL Sstogn Bay Entries are Linked together on a Goud ly linked List 
; : for wh block DBGSSCR ao sek ar. ist is the list head. Also, 
: the BB it DISP START _LINE_PTR and DBGSL_DISP_END LINE_PTR fields of 
: the 0 play Entry constitute the List héad for the doubly Linked List 
; } of sereen isplay Line Entries associated with this display. 
‘ 
2 : A pointer to a Display Entry is declared as follows: 
2 : DISP_PTR: REF DBGSDISP_ENTRY 
5 
2 Define the fields of the Screen Display Entry. 
5 F 


IELD bose sr. FLD = 
DBGSL_DI 


8 
wus 


win 
BREE 
-oo 
DOOOOSCOCCOSCOCSCOCOOCOSCOSOSOSCOOSCOOOOOCOOOO OOOO OOOOCOOCOO OOOO OCOOOOO 


SP_FL =£0,t.], ! Screen display list forward Link 
af Beets plies’ =f 3: bn 7g, | Screen gis kiay beciaard im 
i BEMSBEE Ais 5 EF Ry qh ferme Satty, eset 
if Beslan sf 4: vit |: | Brvectzsaea ceetgln os 

= o Vie ‘ nking ren on 
Hi SEHR Hemaom bata! beeen tet iteentiees ot 
= e 4 
226 DBGSV_DISP_REMOVE = , 92.00) }, 1 ‘splay spl asteboard 
35 DBGSV-DISPTINVSCR = { 9: Vor(1) 3, t Invalidate Play. con SCROLL field 
554 DBG$V_DISP_ATTOP = oe -(¢) “ ! Display at foe of ae file 
555 DBGS$V_DISP_ATBOT = » V2.(3) J, ; piepley at bottom of source file 
228 DBGSV_DISP_MARKFLG = - V2.4) J, Mar 4 anged lines in etep ey 
55 DBGSV_DISP-NEWDISP = ¥ a: » New d Sy Th gt marking 
238 DBGSW"DISPTSCROLL = € 3, SwO_"J,! Screen “display crolling count 
5 : = - Wi. J, ! Unused (available for future use) 
560 DBGSW_DISP_RBEG ={[{ 4, WO. J, ! Screen window bogtaning re roy jocation 
561 DBG$W_DISP_RLEN =U 4, Wi, J, ! Screen window row length (height 
56 DBG$W_DISP_CBEG = 2° WO. J. ! Screen window beginning Bae bocat ton 
56 DBGSW_DISP_CLEN = - Wil J, ! Screen window a umn Length (width 
564 43 to SE oy ={ 6, WO. - | Screen window display row leatan 
565 DBG$W_DISP_DCOL =[ 6, Wi_ J, ! Screen uneee § qieptay co sotyan location 
5 DBGSW_DISP_MAX_LINECNT : screen ¢ isplay H maximum Line count 
56 2 f r. 40. }: : (maximum Lines saved, in memory) 
208 DBG$W_DISP_LINECNT= [ 7, Wi_ J, ! Screen disp} ay s actual line count 
269 DBGSL-DISP START LINE PTR, : Pointer to ; + to ¢laptay Line entey text 
eo be de . oints to ne 

$71 DBGSL_DISP_END_LINE_PTR : Pointer to last Line of of display oat 


5 


13-Se0-1984 33:23:00 “SSsbSaBASBStoeeue:Sacipecuie.reo:1 2%: }9} 


={(9,t.], (points to display Line entry) 
DBGSL_DISP_WINDOW_PTR : Pointer o first Line tn screen window 
={€10,t.], ! (points to a Display Line Entry) 
DBGSL_DISP_ERROR_PTR ! Pointer to List of error mqeoees 
C11, 1], Line Entries for display 


= : Displa 
DBGSL_DISP_OLDTXT_PTR ! Pointer 3 list of old Display Line 


={ 1 
DBGSL_DISP_MODPTR = t 18: 


DBGSL_DISP_CENTER = ({ 14, 
DBGSL_DISP_MARKLINE 


L 4 ntr 9 
L ! Pointer to Module RST Entry--used for 
L 
= ok. 
DBGSL_DISP_MINLINE= 16, 
L 
A 


! 

! 

' 

! 

' 

' 

' 

' 

. spurce Line displays only 
: Central Line number for source display 
! Line number to be marked with ‘'=>"' in 
! source Line Groot er (or -1) 

! Minimum source Line number in module 

! Maximum course Line number in module 

! Pointer to display's DEBUG command 

! list entry (or zero) 

! The display's name in Counted ASCII 


DBGSL_DISP_MAXLINE= [ 17, 
DBGSL-DISP-CMDLIST= C 18, 


DBGSA_DISP_NAME = [ 19, 
TES; 


PUPULV IV LIULUSUSUSVSUSVLUSOSVSUOSUSUASVOSIOS IOS IOSISISIOS 
ARAN LSESSLEREAV AS Saorrows 


! Define the Literals used to indicate the scrolling direction when scrolling 
: a screen display. 


LITERAL 
DBG$K_SCROLL_UP e {, ! Scroll the display up 


VPoNePorofons 


SOOOCOOOOSOOSOOOSSOSOSOSSOSOOSSOSSSOSOSSSSOSOCSOOSOOOOCOOOCOOOCO OOOO OOOOO 


MACRO 
DBGSDISP_ENTRY = BLOCKL,LONG] FIELD(DBGSDISP_FLD) 2%; 
LITERAL 
DBGSK_DISP_ENTSIZE = 19; ! Size of the fixed part of the Screen 
96 : Display Entry in longwords 
3395 
2396 : Define the Literals used to indicate the display kind. The display kind 
seat : determined how the contents of the display are generated. 
608 LITERAL 
560 DBGS$K_DISP_MINKIND = 0, ! -==-Minimum kind value 
tie DBGS$K_DISP_NOKIND = 0, ! No kind--used in calls to indicate no 
605 ; change to the display's kind 
5606 DBGS$K_DISP_NORMAL = 1, ' Normal display kind--contents deter- 
reat ! mined by direct user input 
608 DBG$K_DISP_DO = ¢- ! Contents specified by DO command List 
5609 DBGSK_DISP_SOURCE = 3, ! Source etepley with contents speci- 
610 ’ fied by a source command List 
611 DBGSK_DISP_REGISTER = 4, ! Contents is machine register display 
3618 DBGSK_DISP_MAXKIND = 4; ! ---Maximum kind value 
614 
2613 : Define Literals for the display rendition bits. 
3617 LITERAL 
3h 4 DBGSM_DISP_REND_BLD = 1, ! Bolding rendition mask 
561 DBGSM_DISP_REND_RV = 2, ' Reverse-video rendition mask 
620 DBGSM_DISP_REND_BLK = 4, ! Blinking rendition mask 
° 1 DBGSM_DISP_REND_UND = 8; ! Underline rendition mask 
658 
624 
° 5 
037 
628 


rrr 
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play down 
play to the left 
play to the right 


3 629 DBGS$K_SCROLL_DOWN = ¢: ! Scroll the 
3 6 DBGSK-SCROLL_LEFT = 3, ! Scroll the 
1 DBGSK-SCROLL_RIGHT = 4; : L the 


Be Se Se Se Ge Se Se Se Ge Se Ge Ge Se Se FH Se Ge Fe Se Ge oe Se Fe Se Se Se Se Ge Se Se Ge Se Se FF Se Se Se Se Se Ge Ge Se Fe Se Se Ge ee 


Me wr 


AAA 


BAADAAAAAARE Re ee Re even 
WN SO OCOBNOUE WN" OVONOUE WOO 


FSOo 


Sf 
GOGO COOCOCOCOCOSOOOOSOSOSOSOSGOOCOOCOOC OOOO OCOOOCOCOOOOOOOOOOCOoOO 
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THE SCREEN DISPLAY LINE ENTRY 


The Screen Display Line Entry holds the text and other attributes of a 
Line within a screen ——: This oy | contains —- and peqnuere 
Links which Link tals Line Entry to ine Entries for the prev — 
Line and te next Line of the same display. The Line Entry also co 
tains the Line's rendition attributes (such as reverse video, Blinking, 
etc.) which are to be passed to she creen Management Package. Finally 
it contains the actual text of the Line, includ ng the length of that 
text, and the Length of the text buffer. 


Screen Display Line Entries come 7" re variants he Normal and es 
Source Display Line Entry. your e Bt splay Line Ente es are used for 
source displays as the name implies, and Normal Pisa tay Line Entries 
are used for all other kinds of displays. Normal Display Line Entries 
can optionally include rendition information on a per-character basis. 


NORMAL DISPLAY LINE ENTRY 


wn —- O&O 


The Normal Display Line Entry is used for all screen egy except 
Source screen displays. This is the format of the Normal Screen 
Display Line Entry: 


RESEASSSESCESESSSCSOSE LS ESTOSTER 


$ewoenr ener occ arecore ee ee eer ec oe ee ees ese cere ees Seeeeoeeneoeooo ee a oo ae we ae ce eo 


' DBGSL_DLINE “FLINK i 


++ eeeoeoeoe SeeweesessnsT28868SOSNTebeeoREeNseseeneamee Seeeoenoeoeeee + 


DBGSL_OLINE_BLINK ' 


Se eeeeeesee}oosecocesos oe ee ee oe 


Unused 138 —-DLINE aLENGTH: | F lags 138 “DLINE =REND ' 


eueseeeeeseceso}oeso ee ewe ne eeere yer ewe nee nre weer 2 e ff Per eo wre ew eo SP ee ee 


DBGSA_ DLINE “TEXT 


+ 
The Counted ASCII text of the display Line 
$ 


O oe ew ee cn ee eens 
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_— DISPLAY LINE ENTRY WITH RENDITION VECTOR 


The Normal 1 sg Mh o Entry may include a ‘rendition vector if the 
screen renditi he same for the entire Line. In this case 
the DBGSV_D Ine PRENDFLG, $ set in the Display Line Entry’ ‘3 s flag ti tield 
and a ‘‘rend tion vector’ is present at the end of the D lay ine 
Entry, janed? ately following the Counted ASCII text of 'sp disp play 
Line. e rendition vector contains one byte of rendition codes for 

each NE in the Counted ASCII text of the Line. The rendition 
vector has the same length as the Counted ASCII text. 


1ob46 ‘ SSF b oar oS SS 2109876543210 


S 
SOOO OCOCOCOCOCOCOCOCOOCOCOOCOCOCOCOCOCCOCOCOOCOOCOOCOOOOCOOCOOOOOCOoOOoOoOo 


Pemmmmmwwwww wow eee meee ee eee eee eee ecco ee eee oo coweceeococccccoccoe + 

2 0 ‘ DBGSL_DLINE_FLINK H | 
5698 1 H DBGSL ~PLINE BLINK : 
5699 tooocooooroen= eee teem ee ee ee oeoson tooscceosesccecs peeeeececooceeo=+ 
yA! 2 H Unused '$8 -DLINE “LENGTH! Flags H $B_DLINE_REND } 
$702 3 .hCUt DBGSA “DLINE TEXT H 
re : : 
ar? a The Counted ASCII text of the display Line 
707 er | 
708 oe : : 
709 Fem mmm ewww meee eee ween eee e wesc cece ee ce esos neces esse eeeseres + 
710 on : : 
an : : 
ab - The Rendition Vector (one byte per text character) : 
5715 4 
at : : 
571 a eee + 


error ee eee ee ee ee A 


| 6 
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SOURCE DISPLAY LINE ENTRY 


aut 


MEUM —OCOnNOUS W000 


The Source Display Line Entry is used for source displays only, and 

contains extra Line number information which is not needed for other 

kinds of displays. The DBGSV_DLINE_SOURCEFLG bit is always set in a 

perce Oteptey ine Entry. This is the format of the Source Display 
y: 


PERESEEESETERAPILLER Soaresasere 


$row rar wren cea O ME BACNET EBEDEaeE De wennwoecrewoemenaemet 


DBGSL_DLINE_FLINK 


Ferrer re eto same rere em moe anna SOB Ewe DOM emer wE BH ees mmwromwe > 


DBGS$L_DLINE_BLINK 


$e oecen senna weswanmcewnscene ese cee fa own ae maser ewocfoormoanasen mares wot 


DBGSW_DLINE_FILEID Flags ! $B_DLINE_REND | 


' DBGSL_DLINE_RECNUM ' 


tweens mere nner etree eB aE SHS BE OPIS OTT SSHeMonewraonreneswneeceowes + 


H DBGSL_DLINE_LINUM ' 


ee re eSeeeoeoeooeo eSeeeeoneaoe oe 


DBGSA_DLINE_TEXT2 


Sa fe Da See Sie, Se Site, i i en Pn nD, Di, i Se, ey ye 


uw fF WN —- OO 


The Counted ASCII text of the display Line 


} oe wcccccccccce 


Each Display Line Entry is part of a one Linked List of such entries 

associated with some d spray: The fields DBGSL_DISP_START_LINE_PTR and 

DBGSL_DISP_END_LINE_PTR in the display’s Screen Display Entry constitute 
the List héad Tor this list of Display Line Entries. 


The Display Line Entries associated with a display are reused as new 
text is added to the disor ey contents. For this reason, each entry 
contains not only the Length of the current text Line but the length 
of the entry's text buffer as well. The text buffer will be longer 
than the current text Line if it contained a longer text Line earlier. 


A pointer to the Screen Display Line Entry is declared as follows: 
DLINE_PTR: REF DBGSOLINE_ENTRY 


Define the fields of the Screen Display Line Entry. 
IELD DBGSDLINE_FLD = 


PTT TETETETCTCICTEILILILILIL ILI RII ISIE ETE ILILILILIL ILL LiLierere Tete Te 
PUSS Mt eenenseerenssene ne: 
RREARRERS 
Wms -o 
SOOO OSOCOOCOSCOOCOOCOOCOSOOOCOOSOSSOOSOSOOOOCOOOOO OOOO OOOOO OOOO OOOOoOOO 


! 
i 
i 
i 
i 
F 
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eb 


; 7 SET 

3 at 4d ge tg th Bg ba = s te }: ! forward Link to next Line entry 

i ott DBcae-BLine-REwa™,= E 2° Bo. '4, | RaSe'tion bite fot" thie'tine’™ ome” 
: = = o- n on e 

: 13 poesv ptt i = Vv (9) ° Bolding renettten 5 ‘ 

: 8781 DBcEV-DLIN “RENDTBLK = [ 3. V 8) i BUinking rendi itfon ~ 6} phat 

: ; DBGSV_DL REND LUO ®, { v o'9) 2 1 Under Line rend ston” bit 

; 7 DBGSV_DLINE_RENDFLG = : 3."y 00) }: 9, bye includes rendition vector 
; f 5 DBGSV_DLINE _SOURCEFLG= - Vi-G) J, ! Set for Source Disp Line Entry 
; 7 DBGS$B_DLINE_LENGTH= f ¢- B2_J, ! The Length of the text buffer (bytes) 
3 res DBGSA_OLINE TEXT s AL 1, ! The Line's text in Counted ASCII 

: $790 DBGSW_DLINE_FILEID= g- Wi_.J. | Source File 1D of source Line 

3 791 DBGSL_DLINE_RECNUM= ~l.J. ! Source file record number of Line 

3 re DBGSL_OLINE_LINUM = (4, L_ J, ! Line number of source Line 

: 8 PREeA PLING TEATS =( 5, AL ! Source Line's text in Counted ASCII 

:; 5795 : 

; a MACRO 

; ade 9 DBGSDLINE_ENTRY = BLOCKC,LONG) FIELD(DBGSDLINE_FLD) 2%; 

; 433 LITERAL 

3 rs DBGSK_DLINE_ENTSIZE = 3, : Size of Sized part of Rornet Display 
; ' ne Entry in longwor 

; $802 DBGSK _DLINE_ENTSIZE2 = 5; ! Size of fixed dart of Source Display 
; 5805 0 : Line entry in longwords 


6 
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THE SCREEN PASTEBOARD ENTRY 


The screen pasteboard, on which all displays to be ousput on the 
terminal are pasted to determine what occ uses what, is represented 

by @ blockvector. The vector is indexed by Line number and has one 
entry Tey for each Line on the screen. The length of the vector 
is actually 21 (not 246) so that the last three | “se on the screen are 
always reserved for user program output and DEBUG input pronpt tng. 

For each Line, the vector contains one Pasteboard Entry of the 
following format: 


ET SPESSCROLLOSESSESERIESESSSSL 


aI eS 


0 ‘ DBGSW_PASTE_SCROLL ‘ $B _PASTE_REND H $B_PASTE_KIND H 
1 : DBGSL_PASTE_DISPID ! 
2% DBGSL_PASTE _DLINE : 


$e nrewne eee most er me sewer e Don eB ew eee mace ne mem ree nec oe meres e cee nae} 


Define the fields of the individual Pasteboard Entry. Also declare the 
declaration macro and the size of the vector and of each block. 


IELD DBGSPASTE_FLD = 


' 
i 
f 


DBGSB_PASTE_KIND = - BO. J,! The kind of Line this entry holds 
DBGSB_PASTE_REND = - B1. J,! The rendition bits for this Line 

DBGSW"PASTE-SCROLL = . SWT_J,! The scrolling amount for this Line 

9 DBGSL_PASTE_DISPID = ( 1, LL j. ! Pointer to Display Entry for Line 

? SB SSL PASTE _DLIME =C2,L ! Pointer to Display Line Entry 

Q MACRO 

% DBGSPASTEBOARD = 

5 BLOCKVECTORCDBGSK_PASTE_SIZE, DBGSK_PASTE_ENTSIZE, LONG) 

6 FIELD(DBGSPASTE_FCD) %; 

3 LITERAL 
DBGSK_PASTE_SIZE = g' ! Number of Lines in pasteboard 

50 DBGSK_PASTE_ENTSIZE = 5; ! Size of one Pasteboard Entry in 

51 : Longwords 

i 

23 : Define the allowed values of the DBGSB_PASTE_KIND field. 

2$ LITERAL 

5 DBGSK_PASTE_NULL = 1, ! Null Line--no display covers it 

28 DBGSK_PASTE TEXT = ¢ ' Text Line trge ’ display 

5 DBGSK_PASTE_BLANK = 3, ; pions Line within a display 
DBGSK_PASTE _LABEL = 4, ! Top border Line with Label 


DBGSK_PASTE_BORDER 


= §; 


este ganas 


! Bottom border Line on screen 


"S25580UA28: 


toe 
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THE SCREEN WINDOW ENTRY 


Pec ea eee 


The »Sereen Window Entry contains all the window parameters saseetetes 
with @ named screen window. It also contains engl actual window n 

Ait Screen Window Entries are tinked ¢ ther thre linked list 
for which the OWN block DBGSSCR “UINDOW. IST is othe t ead. 


PED SSSSSORC ET OESESESSELSESTSSSSE 


Pom eonnan nnn erm E Deemer EOC Oe DO TO we DEE esosrecea ssc ne > 


DBGSA_WINDOW_NAME ' 


Ei | 
fh RS | a R 
st RE a cnn one EN OE I a et OS A 
a DBGSU_WINDOW_CLEN DBGSW_WINDOW_CBEG 
4 


The window name in Counted ASCII 


SSS RSSe 
233 VP wn— 


@ ee cccccocccccs 


SPese 
Veuwr 


A pointer to a Screen Window Entry is declared as follows: 
WPTR: REF DBGSWINDOW_ENTRY 


Define the fields of the Screen Window Entry. 
FIELD sospyineeu, FLD = 


be ee ee ee ee et 


RSet ehet es: 
gf 
7 
: 


» _FLINK = 9. LL }- ! Forward Link to next Window Entry 
G$L_WINDOW BLINK = ot : Bechuerd Link to previous Vindow” Entry 
G$W"WINDOW-RBEG = , WO_ J,! Beginni ng row Location on screen 
DBGSW_WINDOW_RLEN = » Wil J,! Row length (height) of window 
G$W_WINDOW_CBEG = - WO. J,! Beginning column location on screen 
DBGSW_WINDOW CLEN = - W1L_J,! Column Length (width) of window 
eit PRESA VINOOU WANE =(€4, A.J] ! The windows name in Counted ASCII 
ag 
91 MACRO 
4 DBGSWINDOW_ENTRY = BLOCKC,LONG) FIELD(DBGSWINDOW_FLD) 2; 
316 LITERAL 
91 DBGSK_WINDOW_ENTSIZE = 4; ! The size of the fixed part of the 
918 i Screen Window Entry in longwords 


renee 
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SOURCE DIRECTORY SEARCH LIST 


OOOO 
= 


wm 
ee ee ee i oe tt tt te te te te Ls 


ree Source ce directory nen List 19 .0,5's¢ structure which keeps track 


¢ of all $s ree. e fee ry names spe d by the user via SET S$ ac and 

SET SOURC E=xxx Lame.” his tap leg s thus searched when 

$ 2 Source Sey ae be opened so that the $ opened in the proper 
y- 


The structure of this List is os fottes ° A e DBFSSRC_DIR_LIST in 
module SOURCE points to e singly $ ked List of Source director 
Search List Header Blocks. Each Header Block contains a Module ns 

Entry pointer (which may zero) and points to a singly Linked list of 
Source esrectery Search List Entries. Each such entry contains a direc- 
tory name as a Counted ASCII string. 


The List is searched by first searching all tte Header a for the 
le RST Entry pointer for the current 0. 8 e module from 
which source Lines are to be displayed. If the "desired nodule is not 
ound, the Header Block with the zero le RST Entry peanter is used 
instead. The found Header Block then points to the Linked List of 
directory names to use when searching for he desired source file. 
there is no Header Block with either the desired module pointer or the 
zero module pointer, no Source erectery Search List Entries are used-- 
the file name from the Declare Source File DST command is used as is. 


The command SET wre? a1 Sieh ea a-gSie® is peoropentee by a 


94 — wy Block with a Fnked to the Module mere for module eognens” 
94 ine § to a Linked List of fete rete. ipere s one Entry for each 
9% eee rN. The command SET dirl,...,dirN is represented 
950 es 4p ALTE r Bl isch with a zero Module acy “Entry vote and of course a 
5951 0 pointer to a Linked List of Entries for dirl, ...,. N. 
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wn 


: SOURCE DIRECTORY SEARCH LIST HEADER BLOCK 

: we youree eevertere Search List Header Block, as described on the 

dh ous page, has the following format: 

' 

4 SGenpeeeees 

| REREBSEEERTRSUPUILG LT desrescsere 

: 0 ‘ SDSLSL_FLINK H 

‘ SDSLSL_LIST_PTR : 

he re SDSLSL_MODPTR ' 

' 

' 

$ inter to a Source Directory Search List Header Block is declared as 

; follows: 

SDSL_PTR: REF SDSLSHEADER 

i 

i Declare the fields of the Source Directory Search List Header Block. Also 

declare the declaration macro. 

FIELD SOS) FLO HEADER = 
SDs SLSL_FLINK 9. Lt. i. ! Forward Link to next Header Block 
SDSL “ist PTR = = 2 th. ae ! Pointer to List of SDSL Entries 
SDSLSL“MODPTR = [ 2, L- ! Pointer to Module RST Entry of module 

: to which search List applies; is 
: zero if for all other modules 

TES; 

LITERAL 
SDSLSK_HDR_SIZE = 3; ! Size of SOSL Header Block in longwords 

0 MACRO SDSLSHEADER = BLOCKCSDSLSK_HDR_SIZE] FIELD(SOSLSFLD_HEADER) 2%; 


Woseent9Re 33:59:57 WaNCHy BL igec se vego7e 
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: 9S H SOURCE DIRECTORY SEARCH LIST ENTRY 

> 6997 i 

° SOR i 

; 995 ; oe is one Soyree Directory Search List i for each divegtory name 
+ 00 : specified on a SET SOURCE commend The “directory name’ may in fact 

s 6.600 ; contorns a full ile name, including extension end version number, but 
+ 900 ; nm most cases it is used oni to override the directory name as given 

s 660 : in the Declare Source File DST command. This is the format of a Source 
; 600% : Directory Search List Entry: 

: : 0 . i 

3 60 17331171111 

; 6008 ; RELESESSSRERIELESEELELI ATS TEE 

4 «0,0, 

; rt oS H SDSLSL_ENT_FLINK : 

; $018 ; oe a SDSLSA_ENT_DIRNAME ! $B_ENT_DIRLEN ! 

4 60146 ' § pow nn ae wow enema a $ 

; 6015 . ee. % (Directory name in Counted ASCII) : 

: Sl9 

: ons i = SSS SSS SOS eoeeneooenonene * 

; 601 : 

: $020 9 

; o8 § ! A pointer to a Source Directory Search List Entry is declared Like this: 
; 6024 i SDSL_ENT_PTR: REF SDSLSENTRY 

; ° 5 

; 60 $ i Declare the fields of the Source Directory Search List Entry. Also declare 

; 60 : } the declaration macro. 

; é0 FIELD SDSLSFLD_ENTRY = 

; 60 é SDSLSL ENT FLINK = £0, LA J, | Forward Link to next SDSL Entry 

3; © SDSLSB_ENT_DIRLEN = » =. 1. Length in characters of directory name 
3 oe : 0 SDSLSA_ENT _DIRNARE =(€ 1, Al_ ] ! First character of directory name 

; 60 : 

; @& LITERAL 

; 60 SDSLSK_ENT_SIZE = 1; ! Size of fixed portion of SDSL Entry 

3 p44 ! in lLongwords 

; 6041 MACRO SDSLSENTRY = BLOCKL,LONG) FIELD(SDSLSFLD_ENTRY) 2; 


15-Sep-1984 33:23:00 “S3sbsnGadsscoceuc: gee ioaciie.rea;1 °° ches. 


; : SOURCE FILE CONTROL BLOCK 

4 i 

rf i 

3 6 This is the format of the Source File Control Block: 

: i 
: ORS | 
3 9 ! TOseReSESE TSS a7 e5 ks hide 76543210 | 
: 4 i + Seeeoeneaneaan ee ee a Se ee mm wee we new nmmrerwoezro eS eee. ee tbe weer ren seas sewone = + 
; 60 Z H 0 ; “SFCBSL_ FLINK | H 
; z fe we SFCBSL_BLINK 
4 60 ' Geooecowececoooosececoowoseecocesoseccoesocccece}ocece eeeertrererece 
3; @& pe se Unused (MBZ) H SF CBSB_ KIND : 
3 6058 ' woe e ere noe as Se eeeoeeeeoooeooeeo eS ¢eeceasereenesce}¢eoreserosececsa -+ | 
; 6059 st Fy SF CBSW_RFACURLEN : SF CBSW_ RFASPACING. : 
5 6060 - rcs re emer ene man fewer enw e oe wer enone + i 
: 6069 i ‘ ; Se a we ce eo eS eS meee cence enn nn dh COSLLRFATBLPTR 3 ee ee ee ee ee eae ees ee we ee om ae ee a ow 4 j 
; 606 eS ae SFCBSL_DSTPTR : 
3 6064 ' Geen ermoena neocon en wene ee enennaonrereonseconmanraeses + 
H 6065 : 6 : SF CBSL_FABPTR ' 

3 6066 0 deere newer ese ose en wen weno eee ee wnen seewecoesooeoooeccesoocccoscecce + 
. ‘ ' | 
eB Bd 8 Bie RR Se PE hath NS Re TEASE : | 
3; 6069 . 8A SF CBSL_NAMPTR " 
3; 6070 i toeweeeee wenn none nnn nee- eee eSeccweecewe eee eeeeeeeneoeeeeeee + 

; 6071 yar. SFCBSL_XABDATPTR — : | 
; $098 i 10 } SFCBSL_ LXABFHCPTR 
: 6074 : temo n wre enw enw ew wwe w nwo e nero eo ec eee eco oecoeccecocce= eocccece- + 
; 6075 ‘1 : SFCBSL “ NAMBUF FER 

; 6076 i a oe eoree--------------- + 
3 7 = of SF CBSL_CURRECNUM : 
: 9078 OP ecceeceennnanmeraiamanar yf emcee cremate ‘ | 
: 6080 i é Seenrwrwrwrrnwreneoacenwreaao a eeccen Sh OSL SUR_RFAO See B® 2B Cee ZF Zeeoeen een wzeoe see ’ 
: 1 ! 14 : Unused SFCBSW. CUR_RFA4 ' 
: 60 § ‘ emer ewe ewe e ewww orem new ee eee o cen poccoe conse sees eceseesscsesses= + 
; 608 15 H SF CBSL “LORINDEX : 

; 5 

> 660 i 

; 60 : The Source File Control Blocks (SFCBs) keen track of all gurrentty open 

; 6089 ! source files. This includes modules w Ate source Libraries as well as 

; 6090 ‘ normal RMS files. Each such block contet ne te nformation nee ged to 

: 6091 : read source recor s from the corresp ong 5 These mint form a 

3 6095 ‘ circular doubly Linked list, where Cor op e pBeésrt Roce PTR in module 

; 609 : DBGSOURCE points to the first block on the List. blocks $ are olueys 

: 6094 : intained in order so that the Most Recently lied 8 first on the 

; 6095 é List and the Least Recently Used block is Last. s ordering allows 

: : DEBUG te close the Least rece y Used source m.. when a file must be 

: 098 : closed in order to open a new e. 


Bont ee eee ee rea 
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currants positioned 
SFCBSL_CUR_RFAO = C 13, L_ J, RFA at vwhich the source file is cur- 
SFCBSW_CUR_RFA4 = [ 14, wO_ J, 


SFCBSL_LBRINDEX = ( 15, L_ J] 
TES; 


ntly positioned (first 4 bytes) 
RFA at munich the source file is cur- 

ly positioned (last 2 bytes) 
Library fi e index used by Librarian 


LITERAL 
SF CBSK_SIZE = 16; ! Size of SFCB in longwords 
MACRO SFCBSBLOCK = BLOCKCSFCBSK_SIZE] FIELD(SFCBSFLD_DEF) 2; 


: Declare the possible values of the SFCBSB_KIND field. 


LITERAL 
SFCBSK_NOTUSED = 1, ! This SFCB is not used (is available) 


$ $098 } DEBUG olvers hoses ’ fixed number ource File Control <x on the 
; 1 ; list. Ss number 7 given by variable DBGSSRC_MAX_F LES ule 

; 6101 ' beesOURCE. t can be changed by the weer with the SET MAX SouRcE “FILES 
3; «61 § ' command. This number Limi he number of source < les which are open 
; 66} : at the same time. pyc a lim : is required to prevent DEBUG from =a 
en). ‘ up too many of the Limited number of channels the user can have open a 

; 6105 ‘ any one time. Thus, when all SFCBs are in use and a new source file 

c oy ! must be opened, the fast Recently Used file is closed and its SFCB is 
; 6108 H reused for the new 

3 eid : A pointer to a Source File Control Block is declared as follows: 

30 6 OTT ' SFCB_PTR: REF SFCBSBLOCK 

: Btls 

; 61146 ' Declare the fields of the Source File Control Block. Also declare the 

3 oi? H declaration macro. 

3 eit? FIELD SFCBSFLD. DEF = 

3 e119 SF CBSL_FLINK =(0, L. }: ! Forward Link to next SFCB 

; 6120 SF CBSL_BLINK Se ts & ! Backward Link to previous SFCB 

; 6121 SF CB$B_KIND , BO. J, ! The kind of source file this is 

; «61 ¢ SFCBSW_ “RF ASPACING= » WO. J, ! The allocated length of the RFA table 
; «661 SF CBSW_RFACURLEN= - Wid, ! The used Length of the RFA table 

; 6124 SFCBSL_RFATBLPTR= C 4, L_“J, : Pointer to Record File Address (RFA) 
; 6125 ! table for this source file 

; 6126 SFCBSL_DSTPTR =(C€ 5, t_], ! Pointer to DST Declare Source File 

; 6127 0 ! command for this source file 

; 6128 0 SFCBSL_FABPTR =({ 6, 1.1], ; Pointer to the FAB for this file 

; 6129 0 SFCBSL_RABPTR =[{ 7, L_ J, ! Pointer to the RAB for this file 

; 61 0 SF CBSL_NAMPTR a, h. oe ! Pointer to the NAM block’ for this file 
; ot 1 0 SFCBSL_ ~XABDATPTR= 7 tb. de Pointer rte pe Date and Time block 
; «68 § 5 SFCBSL_XABFHCPTR= (10, L.], ! Pointer fo XAB File Neeser Character- 
-. of 0 ! istics block for s file 

; 6135 SFCBSL_NAMBUFFER= ([ 11, L_ J], ! Pointer. to “butter for NAH block file 
; 6136 ! name strings for ¢ his file 

; at tA 3 SFCBSL_CURRECNUM= [ 12, L_ ], Recorg number at w nich: the source file 
3 oi30 0 ! 

; 6140 0 ! 

; 6141 0 : 

s 6142 : 

3 6145 ! 

3; 66144 

3; ©6145 

5 o166 

: 6614 

:; 6148 

3; 66149 

; 6150 

3; ©6151 

3 ol3¢ 

s 615 

: 6154 

» S199 


7 
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$ 61 $ SF CBSK “[BRFILE = ¢: ' This SFCB is used for an RMS fil | 

5 2 SFCBSK-LBRFILE = 3, } This yt is By Ae os a module within 

$ . a re] i 

; 6 § SFCBSK_FILE_UNAVAIL = 4; ' This SFCB is sieaial by a file which 
; 6160 0 ! is presently not peatlable 


Bercy an ee, ae ene ee Lire apa ake See 
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SOURCE FILE ID TABLE 


= 
AAO 


wn 


. 6 ' 

; 6 i 

3s «(OF : 

; 61646 : 

; 6165 : The Source File ID Table is used during the decoding of the Source Line 

; 298 : Correlation DST Record to keep track of the File IDs used to reference 

; 6167 O : the current module’s source files. The Source File ID Table consists of 

; 6168 0 ; a singly Linked List of Source File ID Table Entries, where each entry 

>; 6169 0 : gives a File ID, a pointer to the corresgens ing Declare Source File 

; 6170 0 : command, (This command gives all needed information about the identity 

; 6171 0 : and nature of the source file.), and the current source record number. 

8 oie 8 : This table is used locally in routine DBGSSRC_TYPE_LNUM_SOURCE in 

; 617 ‘ module DBGSOURCE. This is the format of each Source File ID Table 

; 6174 0 : Entry: 

s 6175 0 : 
; hw et 33 22222221111111111 

3 etre 10 § § 5 6 5 4 j g 1 98765432109876543210 

: 61 80 8 ' ¢ oe wmnmereecece meow amacwaew am 6 ee an (Se eee ee ee oe Se 8 8 2 Se & Sw we SS & ow ww ow we Se mm mm we erene $ 

s 6181 0 Wig Pen SFITSL_FLINK : 
4 61 Hi 0 ' Fee ee ee SeeSSSSSSSSS SSeS SSeeSeeenneeonoaoeen ras So = Swe ew we oe ce wm ew > + | 
>; 6183 0 ce : SFITSL_FILE_ID : 

Ps 61 84 0 ' eeoeeeeeseeeeeeeeeeseeeseeeoeeeseoesaecs too et ae nem ee eee a ee ee rm + i 
; 6185 0 fio SFITSL_DOSTPTR : 

P+ 61 Hy] 0 ' dame oon eonmae eeeee Sa Bese noe enn Be Re Pew |S Owe Se we we oe Se me ww es oe ce ee wea wees ee & i 
; 6187 0 ee Ta. SF ITSL_CURRECNUM : 

3 61 BB 0 ' tere reaence eeeeceeece eee ewe eee wesc mera eeneen neem eae werent rn ene was e nee + 

; 6189 0 : 

:; 6190 0 ! 

; 6191 0 ‘ 

3 ole ° A pointer to a Source File ID Table Entry is declared as follows: 
: 619% 0 i SFIT_PTR: REF SFITSENTRY 

; 6195 0 : 

>; 6196 0 : 

:; 6197 0 ! Declare the fields of the Source File ID Table Entry. Also declare the 

; 6198 8 ! declaration macro. 

:; 6199 : 

3 00 0 FIELD SF LTSFLD_OEF = 

: 6308 7 SFITSL_FLINK =(€0,t. 1], ! Forward Link to next SFIT entry 

; 62035 0 SFITSL_FILE. 1D =(€ 1, lt. J, ! File ID value for this source file 

> 6206 SFITSL_OSTPTR =(€2, tl. ], ! Pointer to DST Declare Source File 

: 6205 ' command for this source file 

:; 6 5] SFITSL_CURRECNUM = (3, L_J ' Current source record number for 

; 6207 0 ! this source file 

, © 4 TES; 

. 6 

: 6210 LITERAL p 

3 ° 4 4 SFITSK_SIZE = 4; ! Size of SFIT entry in Longwords 

; osig 0 MACRO SFITSENTRY = BLOCKCSFITSK_SIZE] FIELD(SFITSFLD_DEF) 2%; 


? 
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SOURCE FILE RECORD FILE ADDRESS TABLE 


This is the format of each Record File Address Table entry: 


ES OSESSCAO ES ESECECSER IESE SESE 
Femmes ee cee eeseese cee sesseeeoecooeseecescesoecoscoesecoococecoe$ 


0 } RFATBLSL_RFAO 


Feo woeceeeeeoeeeeeeeeoeoo soe eocoeceeeseseeesecescoceecocoecescso} 


1 RFATBLSW_RF AG 


Pwr newman ew nese new e me meee seem eon + 


' 
! 

! 

' 

' 

! 

' 

' 

! 

' 

1 

! 

' 

' 

' 

' 

' 

‘ The Record File Address Table correlates record numbers in a source 
} file with RFA‘s for that file. It is used during the TYPE command 
; and other commands that cause source Lines to be displayed, to 

: help locate the desired record more efficiently. 
: There is one RFA table for each open file. The table is allocated 
: during DBGSSRC_INIT and a pointer to the table is placed in the 

: Source File Control Block. The table consists of a fixed number 
of entries (RFATBL_SIZE_ENTRIES, defined in DBGSOURCE). 

' 

' 

' 

' 

' 

' 

! 

' 

4 

! 

1 

' 

' 

Ff 


For every N records in the file, there is one RFA entry. That is, 
the first entry is the RFA for record 1, the next for record (1+N), 
the next for record (1+2N), and so on. fhe spacing N can be adjusted 
dynamically and is kept in the Source File Control Block. 

A pointer to an RFA table is declared as follows: 


RFATBL_PTR : REF RFATBLSBLOCKVECTOR(RFATBL_SIZE_ENTRIES) 


i Declare the fields of an RFA table entry. Also declare the declaration macro. 


IELD RFATELSFLO_DEF = 
RFATBLSL_RFAO = f 0, ty } ~ ! Block number part of RFA 


BEATOL SURF AS — ! Byte offset part of RFA 
LITERAL 
RFATBLSK_SIZE = 6; ! Table entry size in bytes 
MACRO 
“ RFATBLSBLOCKVECTOR(N) = 


DARADPAXAAAAAA AA AAAS AAAAAA AA AAAAAAAAAAA AA AAAAAAAAAAAAAAH 


PANAMA MNUIUII S BEERS Ay att thet ab NN ah oN ae a ee 


CGOOQOOSOOCOOOOOSOOOSOSOSSSSSCOSCOOSCOOCSOOSOOOOOOOOCOOOOCOOOOOOCOOo 


BLOCKVECTOR CN, RFATBLSK_SIZE, BYTE] FIELD(RFATBLSFLD_DEF) 2%; 


| ? 
1S-se “1 :$9:57  VAK=11 BLiss-32 v4.0-742 Page 148 
132300- 198s 85:23:00 “SSSSSD0ASBscocauG: snc ioecLiB.rea:1 °9° cass 
STATIC ADDRESS TABLE DEFINITIONS 


The Static negroes Table (SAT) consists of a two-level structure. There 
is a Program Static Address Table which specifies what static addresses 
(code addresses and static data addresses sonore to what modules. This 
table consists of a Linked List of SAT entries where each entry seecte 
fies an address range and a poe to the corresponding Module RST 
Entry. The List is ordered by start address so that low start addresses 
come before higher start addresses. It should be noted that a given 
address may be covered by more than one SAT ontey pec muse different mod- 
ules can have global PSECTs in common--Fortran C blocks cause this 
situation to arise. Given an address, the Program Static Address Table 
can thus be searched to find the module that contains the address. 


On a second level, there is a ng gtd Static Address Table for each mod- 
ule that is SET. This SAT is a Linked List of exactly the same structure 
as the Program SAT except that the RST pointer in the SAT entry points 
to the RST entry of the symbol, not the module, containing the address 
range. This list is also ordered by start address and agai? more than 
one symbol may contain the same address (due to Fortran EQUIVALENCEing 
for example). If two entries have the same start address, the entry 
with the larger end address is placed first in the Module SAT; this is 
crucial to the correct behavior of the DBGSSTA_SETCONTEXT routine where 
routine addresses are compared to PC values from the VAX call stack. 
The Module RST Entry contains a pointer (RSTSL_SAT_PTR) which points to 
the first SAT entry on the module's SAT chain. 


Note (R. Title)- for a future release of DEBUG, I intend to turn the 
SAT chains into binary trees, instead of Linked lists. The reason for 
this is that for large programs, the SAT chains can grow quite long 
10-G-1, 1OUe entries’. and it becomes quite expensive to search this 

s nearly. 


The tree search algorithm will work Sqneentng Like this: If the 
desired address is greater than the address in the SATSL_END field 
of the current node, follow the right son pointer. If Tt is 

less than the address in the SATSL_START field of the current node, 
then follow the “‘left son perater. If it is in the range, then 

we have found the desired SAT entry and we are done. 


During the transition to this new data structure, the same four 
fields are being kept in the SAT qntry in, the same place (so that 
the old code still works). The “right son’ field is overlaid with 
the FLINK field, so that the tree search algorithm will 

work on the old Linked lists (a linear List is just an, oxtrenely 
unbalanced tree, with no left branches). The “left son’ field will 
occupy the fifth Longword. 


The individual Static Address Table entry has this format: 


TOSES ES ESS TG oa ros ks 21 doe7esaszi0 


¢ewmwmoewoem eee nwe seen e ave ecrer oe sce emer eceeoes eeeeeeoeoeeoooescoe eseenonroaes + 


SOSSOSSCOSOOSCOSOOCOSCOSCOOOCOSOSOOCSOOSSOSOSCOOCSOSOSSOOSOOOCOOOOOOOOOOOOOOOOOoOOO 


N—OOONOUEWwN—O 


POR RY —2 te 4 


? 
15-se0-1984 B3:23i00  “SBskSpOASastoceuc: gee ibaciie.reo:1 *%* «bos 


' SATSL_FLINK (also SATSL_RIGHTSON) : 


a a Ie eos 


SATSL_START 


+e Seeeoeenenene BSetnre wr tB ae De ee ss enon ars eens wD Sema swore eoaatroanaanwvemoaoa $ 


0 

1 

. 4 SATSL_END 
3 

4 


I ers 


SATSL_RSTPTR 


aero e nen cnewenranamese = sSeeeeeeeo SSS Geeenenenene Beer e fen = = ee oon cw 


SATSL_LEF TSON 


¢mene eeeceoe Seer een ee ss e282" Seen enonenonnoo SSeH stam emronnnoanoana $ 


A pointer to a Static Address Table entry is declared as follows: 
SATPTR: REF SATSENTRY 


Field definitions for the SAT entry. 
IELD SATSr LS per = 


eee ee ee ee te te ee te ee ee te 


SGOOCOOSOSOSOSOCSCCOOCOOO OOO OOOOOOOOOOOOOOOOO 


DAPAAAAAAAAAAASAAAAAAAAAAAAAASOAAOAAAAAH 


SATSL_FLINK eG @ tu Be ' Forward Link to next SAT entry on the 
$ : chain--zero terminate the chain. 
SATSL_RIGHTSON = otc de ! Link to right son in binary tree. 
: SATSL_START st i,t. d. ! Start address of address range 
$ * * ¢° Lae ! End address of address range 
50 SATSL_RSTPTR = » te OO ! Pointer to RST entry of module or sym- 
51 : lL containing this address range 
2g PATOL AEF TSOM =(€4,t.] ! Link to left son in binary tree. 
54 
55 LITERAL 
38 SATSK_ENTSIZE = 5; ! Size of one SAT entry in longwords 
58 MACRO 
59 SATSENTRY = BLOCKCSATSK_ENTSIZE] FIELD(SATSFLD_DEF) 2; 


IEAte<198E GBER:E% VASSHABLLETEBEME:Gi%sBocre.nos1 "29°89 


VALUE DESCRIPTOR DEFINITIONS 


velve fercriotors Goscr ive Language values generated during the proces- 
sing of language expressions in D aus ¢ ommands Like EVAL and DEPOSIT. 
The Language-independent version of t “Value Descriptor consists of 
the Value and en of y Descriptor oh. fields followed by a mlong “te 
VAX Standard Descr e or followed by the actual value described by 

Value Descriptor. It thus has the following format: 


PES OSESSCSOLLOSESSLSELI ESTOS 


eo eee OOO oe ee Seeeeeeneneno Beene senee reno wnenawcoa $ 


+ SB_DHDR_LANG { $8_ DHDR_ TYPE ; DBGSW_DHDR LENGTH H 


teow tannntann nant ens sec neon anes ¢ 


+ SB_DHDR_KIND : $8_ DHOR -FCODE ; DBGSw_ DHDR_FLAGS ' 


ame ete Ble cme inne a I SO BAe Se oe aD Sceccecocccooos 


i DBGSL_DHDR_TYPEID ' 


+ eueceeceousseosousscesoeceses -—o ese SSB eS SS SOQ eZee 2 STFS eB SM eB een = > 


: DBGSL ~PHOR. -SYMIDO ' 


. 2 Seer erewrroces erence rneowowrorrrewrrererererwve ¢oez we eeeeoeo SSS SOOO ooeononnoe + 


: $B_VALUE -S1GN_ CODE (constant) : $B _VALUE ~ TOKENCODE (constant) : 


ee Berean manroce se oe aacmemeiien PRPS HOST OStrEDOsonr ews ewes > 


+$B_ VALUE “CLASS 1$8 VALUE _DTYPE ; DBGSW_ VALUE LENGTH 


Gvescocessessceoto Seesrn ees maner¢aew emer s mom aew eee eeeesueswe we en ww ae dy 


' DBGSL “VALUE -POINTER ' 


conn eseceose eeeceesceccececcceseo Keak EO eT COM Ben BO ae ewe OES eH woo + 


: Third longword of VAX descr iptor--usage depends on class. 


bow mam wmoenewoe SSS SSS SSSSSSSSSSSSSSSISOS“OS“OOS*QS*SeS SS SSS ooneneneo 


DBGSA_VALUE “ADDRESS 


If DBGSB_DHDR TYPE contains DBGSK ,VALUE_DESC, then 
the actual value will be stored h ; 
A byte or word entoger value is stored extended to ‘ 


oneewrF wn ©& 


longword integer using sign- or zero-extension, as 
appropriate. 


. 
— 
} ec covacccocccccces 


SS Se S222 Se e222 SOS SSFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSTSESTSOSES + 


A pointer to a Value Descriptor is declared as follows: 
VALPTR: REF DBGSVALDESC 


BSRIESRENLSSSLEREANLS 


Define the fields of the Language-independent Value Descriptor. Also 
define the declaration macro. 


FIELD BOSSVALUE J FIELDS = 
DBGSW_VALUE_TOKENCODE=( 4, wO_ J, ! Value of TOKENSW_CODE for constants 


Be Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Ge Ge Gs Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Ge Ge Se Ge Se Se Se ee ee 


Od et ed ed 
Ounfuwn—o 


SDA Ss aa Seane ara 
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; } DBGSW_VALUE_SIGN_CODE=C 4, wi_ J, ! Sign ¢ EnSy‘ CODES f Unary -/+ 
3 1 i TOKE Sat or con Jtants 
> 641 DBGSA_VALUE_VMSDESC = ° ! Address o — fers’ ptor 
>; 66 DBGS$B_VAL “CLAS = ° ! osc “tas. 

ae DBG$B_VALUE_DTY = ° ! DSCSB_DTY Hr ae sig 

; DBGSW_VALUE_LENGTH = ° ° ! DSC “bENer H_ sub-field 

; DBGSL_VAL INTER = 2: i: ° ! DSCSA_POINTER sub-field 

; & DBGSB_VALUE_ 3 = 2: 80 ts ae ' OSC =f thle sub-field 

; 5 DBGSB_VAL “5ie S$ = aig ety ! DSCSB_DIGITS sub_fiel 

; «666 $ DBGSV_VALUE_FL_BINSCAL o 1, 03, § Dstevtt BINSCALE sub-field 

; (66 DBG =VAL a = . Be ' dsc L-POs sub-fie 

3 ee 0BG ADDRESS = e: oo a ! First byte of vejue 

F} DBG “VAL “VALUEO = e: i. a ! First longword value 

3 oe : pegs “VALUE_VALUE1 = ot. ! Second longword of value 

; 646 ¢ 

; 64 MACRO 

; +) ¢ DBGSVALDESC = BLOCK [,LONG) FIELD(DBGSDOHDR_FIELDS, DBGSVALUE_FIELDS) 2%; 
3 66 

; 66 ! Define the “base size’’ of a value descriptor in longwords. For the cases 

>; 66 ! where the value is ectuatly stored in the descriptor, the total size 

>; «646 ! is the base size plus the number of longwords needed to hold the actual 

3 6440 ! value. 

; ©6461 : 

; ory] LITERAL 

>; 6445 0 DBGSK_VALDESC_BASE_SiIZE = 8; 


: 
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OLD DEBUGGER DEFINITIONS 


5 ' 

3 45 ' 

; 

. ' 

$ 4 ; These definitions are used by ote Debugger modules which also need to 
; 644 : use the new RST (and other) definitions. 

: ge LITERAL 

3 1 § ! constants used to identify individual rst flags 

; rst$f_global = 1, 

; 66 rst$f_nonzlength = 2, 

; o 5 rstS$f_modset = 3; 

3 64 MACRO 

: 66 5 ' 

; 6460 ! Get the srm type address from a dst with address calculation commands 
> 6461 : vag type is following the name string 

3 or] ‘ - size of fixed portion of dst 

; 666 : 1 = byte to age count of name string 

: ote dst(dstr_name] = contains count of characters in name string 
; res | i add this distance to base address to get address of byte 

; poe e4 ; containing the srm type 

a) 6469 CAD_SRM_TYPEA(DST) = 

3 oer ( .DST + 7 + 1 + .DSTCdst$b_name) ) %, 

; ore ! Get the srm type from a dst with address calculation commands 
7 64674 CAD_SRM_TYPE(DST) = 

; 6675 ( . (CAD SRM_TYPEA(DST))<0,8,0>) 4%, 

; oe78 ' Get the address of the calculation commands in a dst which contains 
: ones ! them. They start one byte past the srm type. 

| 6480 CAD_COMMANDS(DST) = 

; re 1 ( CAD_SRM_TYPEA(DST) + 1 ) 2%; 

(66 

; 64 MACRO 

3 4 * 5 RST_UNITS( bytes ) = 

: 8 eeks , ( ((bytes) + Xupval-1)/Zupval ) 

; (66 : 

; 6490 MACRO 

3; 06.6491 ' DEBUG tells the RST module about ASCII 
3 ote ' str wae b gessing a counted string pointer. 
3 oh CS_POINTER = REF VECTORC1,6YTE : 

3 6495 LITERAL 

: hs | ee ee 

; 6649 ' We will never print synbolsottset when the 

3 2638 ‘ upper bound for BS nv * is 0 and when 

: ts ! the offset is greater than RST_MAX_OFFSET 


rE-seoct9ee 22:59:57 van=dy BLigecB2 v4.0-742° | Page, 155 
RSTSK_MAX_OFFSET = %x'100"; | 


'¢ 


j Since o prone Set inixtons are recursive % oust 


3 1 

: 

3 t on FESine in the routine ROWE 

; t is no going nce that this stack tate : the 

Fy i same as the | tint . on the Length (in elements) of 

° 651 i lL pathname 

3 1 

; ? i LITERAL 

: 1 MAX_SCOPE_DEPTH = dbgSk_max_pathname; ! Routines can be nested to a maximum depth. 


I-Rgci9 SB:28:8)VASHLBLUNTHBME-SlSBocin.ncass AS 


3 1 

; 1 FIELD 

3 } ' VALU_FIELD_SET = 

; 1 VALU_NT_PTR ={ 0,0.32.0 ). ! Associated NT pointer. 
; VALU, “ VACUE = : 4 §-33-8 : i The actual volue. 

; i Declare an occurrence or REF to a VALUE DESCRIPTOR 

: : i via the following macros. 

; $ LITERAL 

3 : 8 VALU_DESC_SIZE = 8; ! Each one is 2 longwords long. 
; $2 MACRO 


6531 VALU_DESCRIPTOR = BLOCKE VALU_DESC_SIZE, BYTE J] FIELD( VALU_FIELD_SET ) 2; 


*- 
we 


Wn —O0@ 


Array Bounds Descriptor 


An ervey bounds Descriptor is upee to +3 p- around all needed 
information about an array and ts associated dimensions. 
Like VALU_DESCRIPTORs, they are simply 2-Longword blocks, 
but this Might change. 


' = a longword----- ' 


' address of array ! 


i Length of array | 


Such Descriptors must be accessed via the following 


ield names. 
FIELD 
' ARRAY _BNDS_SET = 
ARRAY_ADDRESS = 0,0,32.0 J. ! Beginning address of array. 
ARRAY _LENGTH = f 735° j ; Site. in bytes. of array. 


te 
' Declare an occurrence or REF to an array bounds 
: descriptor via the following macros. 


LITERAL 
ARRAY _BNDS_SIZE = 8; ! Each one is 2 longwords long. 


MACR 
ARRAY_BNDS_DESC = BLOCKE ARRAY_BNDS_SIZE, BYTE J] FIELD( ARRAY_BNDS_SET ) 2%; 


7 
1BoSep-196s 22:58:57 vane]1 Bt fus-82_v4.0-74 


APOEAAAAAAAAAAAAAAAH 


Wnt 


SPERES Zao IOS 


o 


LITERAL 


'¢ 


SL_ACCE_INIT 
SLACCE-RECS 
SLACCE~SORT 
SLACCE-FREE 


! See above. 


nunn 
wr—o 
See © @ 


eine 33:59:87 


"SL" ==> SAT/LVT 


' You declare an eerycrence or REF of an SAT datum via 


: the macro, SAT_RECOR 


MACRO 


SAT_RECORD 


= BLOCKC J] FIELD( sat$fld_def ) %; 


VAX=11 Liss 
VED5SSDUA28:£ 


DeBuG: sac $RcJ08GLI8. REQ; 1 


roe tt 


? 
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: 82% a | 
; 6 i Now we bring in the GST definitions directly from STARLET.REQ. 
3 66591 i The format of one of these concatenated GSD records is a single 
; § 35 : jeading byte containing the value 1, indicating that the record 
3 ° a7 : s indeed a GSD record. 
: 6595 i Each entry in the record has a fixed number of overhead 
; £288 : bytes followed by a symbol name that is a variable number of 
"3 659 : oycet, The entries we are interested in processing are the 
3 $298 : q obe} gyabol definitions and entry point symbol and mask 
3 6599 : efinitions. The other defined type, PSECT definition, is 
; 6600 8 : noted only because it must be peerrers passed over. The 
3 oes) : format of each of these types is illustrated below: 
i 8808 Global symbol definition: | 
; 6606 0 ! 0 ! GSD type 1 ! | 
3 ©6608 0 1 ! datatype ! ignored for now | 
; 6610 0 i 5 ! flag ' bit 1 set means that this is | 
3 eet 4 : bytes : a definition. ignore bit 0. 
: $618 9 i 4 ! psect index ! ignored. 
; 6616 0 i i value i 4 bytes 
; 6617 0 ‘ ! : 
$ oe : 8 : 9 re Sawa “sings 
; 6620 0 i is gymbol i stock counted character 
; 6621 O ; : name : string. 
3 $6¢¢ 0 ‘ ! : 
> 6625 0 The entry point symbol and mask definition entry is identical to | 
; 6626 : the giebet symbol definition illustrated above, with the 
; 6627 0 : addition of a two byte field for the procedure's register save 
; 6628 0 : mask. This two byte field is located after the symbol value 
; 6629 : field (which is an entry point address). 
3 $8 0 } 
3 1 5 Berean e se mee eer wee & 
; 6636 : 0 : GSD type 2 ! 
; 6634 1 ! datatype ! ignored for now 
; (66 ; j flag not relevant for 
; rat t4 : bytes : entry point def. 
> 6639 4 ! psect index ! ignored 
; SoG : 5 : value ; 4 bytes 
; 664 : : : 


ee . 4 
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3e0716 4 22:43: -$255$DUA28 : (DEBUG. oRCISBGLIB. REQ;1 (95) | 
| 
9 ! register ' ignored, ; | 
10 ! save mask ! 2 bytes 
; symbol : stock counted character 
} name : string 


° . 
weer ae were ernwoe wen = 


The procedure definition with formal argument descriptions is 
agat Sees to the "GSD type 2°’ definition above with the addition 
of fields that describe each formal argument 

Foll owing the symbol name there is one byte containing the minimum 


AA RAAARARS 33333; 
OWONOULSWN("OOONOUNS 


— of ss allowed, and one byte containing the maximum 
number of arguments. | 
6660 These bytes ire followed by a series of records of 2 - 257 bytes 
6661 that describe each of the formal arguments (the number of these 
06 records is equal to the maximum number of arguments for the procedure. 
6664 oe eee ae ee 
6665 0 ! 68D _type a % 
6667 1 : data type ! ignored for now 
6669 é : flag 4 bit 1 set indicates that this is 
oer : bytes : a definition. Bit 0 ignored. 
$67 4 ! psect index ! ignored 
6674 ! ‘ 
e672 5 } value 4 bytes 
6677 a encennenens 
6678 9 ! register : ignored, 
6679 10 ! save mask ! 2 bytes 
6681 11 ' } 
cone ‘ symbol ! stock counted character 
668 ! name : str 
6684 i i 
5 ~~ Se me ee ee 
eens ! min # of args ! 1 byte 
ree t4 ! max # of args ! 1 byte 
6690 


' formal mS “i! 
! description i 
: > ; 
! $ 
' formal arg an 
! description ! 


Format of each formal argument description. 


DOGO OSCOCCOCOCOOCOCOOOSCOCOCOOSOOOSOCOSOSOOSOSCOSSSOSCOOCOSOOCOOOCOOOOOOOOOOOOoOO 


Be Se ae eee te Spey Pet 
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~ 
— 


0 ! arg value ctl ! 1 byte 


! remaining byte! 1 byte ( 0 = 255 ) 
! detailed : 
! argument : 
! description ! 


SRLESEAN 


The format of GST records is defined as a BLOCK 
(even though the records are variable sized) 
with the following fields: 


6 
67 
6? 
67 
67 
67 
67 
67 
erie PSECT definiti 
orig definition: 
! 
6718 Sarre 
: ag : 
6720 ' i 
6798 Pe : 
' 
6754 allocation : 4 bytes 
7 5 See eee eeeeeoenenenoneoe 
726 8 
? ! symbol stock counted character 
728 ' name ' string. 
729 
7 
1 
738 
5 


SoCo eee 


SOOOOOOOOOSOOOOOOSCOOOSOSOSSSOSOSOSOSOSSSOOSCOOOCOOOOOCOOCOOOOOOOOOOOOO 


LD 
7 OST FIELD SET = 


SE 
GST_ENTRY_TYPE = 
GST“IS_DEFN = = 


GST_VALUE = 5.0,32,0 J, 
GST_P_NAME_CS = 8,0, 8.0 J, 


! The following 2 pairs are mutuall 
' exclusive. he first one is for bst 
' records of type GST_GLOBAL_DEFN, the 
! second is for GST_ERTRY_DEFN or GST_PROC_DEFN. 


GST_G_NAME_CS =[( 9,0, 8,0], ! The symbol name is a counted string. 
! A dotted reference to this field 
: picks up the count, an undotted 
! one addresses the counted string. 


Type of GST record. 

This flag implies whether o no 
the record is an entry definition. 
The value of the glo al. 

(This won't work for PSECTs) 
Character count of psect name 


oe9e F-8 J: 


el.FfPS ew 
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GST_G_NAME_ADDR = (10,0, 8,0 J, ! The name spring itself. An undotted 
reference is the address of the name, 


a dotted one is the Ist character. 


GST_E_NAME_CS = (11,0, 8,0 J, The entry name is a counted string. 
A dotted reference to this field 
picks up the count, an undotted 

one addresses the counted string. 

The name spring itself. An undotted 
reference is the address of the name, 
a dotted one is the ist character. 
Maximum number of formal arguments. 
Remaining byte count of argument 
descriptor. 


GST_E_NAME_ADDR = (12,0, 8,0 J, 


SST-P-PUK-tRE =f 1-8. 8-8 3. 


TES; 


‘¢ 
} You declare an occurrence or REF of a GST datum via: 


:  BbF8 O i 

3 ore : 

s 667 ‘LITERAL 

3 ore 8 : GST_RECORD_SIZE = 43; ! Each GST record is at most 43 bytes long. 

; 678 i 

3 6785 : GST_RECORD = BLOCKE GST_RECORD_SIZE, BYTE] FIELD( GST_FIELD_SET ) %; 
ites ft 

; O786 4 ‘LITERAL 

; 678 : GST_PSECT_OVERHEAD = 9 ! Minimum number of bytes in psect def 

> «6788 9 GST-GLOBAC_OVERHEAD = {0, i Minimum number of bytes in a global entry 
; ©6789 : GST-ENTRY_OVERHEAD = 12, ! Minimum number of bytes in en ry 

: 6790 : ! point symbol and mask definition 

: 6791 ; GST_ARGDSC_OVERHEAD = $ ! Minimum size of formal argument descriptor 
; 679 : GST_MINMAX_OVERHEAD = ! Size of min. and max. overhead in GST 
; 679 : GST_RECORD_TYPE = 0, ! Type of GST record 

; 6794 ; GST_TYPE = 1; ! Record Type is GST 

; 6795 : 

3 O76 '¢ 

3 67° : The GST record types are defined as: 

3; 6 i 

; 6800 ‘LITERAL 

; pest ! GST types: 

; $808 GST_LOWEST = 1, ! We don't support global PSECTs now. 

; 5 i GST_PSECT_DEFN = 0, ! P-SECT record. 

3 ‘ T“GLOBAC_DEFN = 1, ! A global symbol definition record. 

3 one? ! GST-ENTRY DEFN = ¢: ! An entry point definition. 

3 : GST“PROC_BDEFN = 5, ! A procedure with formal argument desc. 

; $510 i GST_HIGHEST = 3; ! Highest one we support. 
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SS ea eee ee es se ee 
ibe 


‘ee 

ao uses ‘non-standard’ DST records to encode 

‘ tof its local symbol information. shese records 
: ore Like ye DST records except that the TYPE 

_int formation is variable-sized. 


FIELD 
SET BLZ_FIELD_SET = 
BLZ_SIZE =C 0,0, 8,0], ! First byte is record size in bytes. 
! The next byte contains DSCSK_DTYPE_Z, or we 
i wouldn't be applying this structure to a given 
! DST record. 


BLZ_TYP_SIZ =C 2,0, 8,0], 


! Type ‘ite cae up ehte 


! 
! man 
68 BLZ_TYPE =C{ 3,0, 8,0], : unich ty hen of type Zero 
68 i this corresponds to. 
os BLZ_ACCESS =C€ 4,0, 8,0], i aecene field. 
68 ! Sub fields of _ACCESS are offset from beginning 
be} ! of the BLZ record. 
BLZ_ACCES_TYPE = 4,0, 5-0 " ! Type of access, 
BLZ-ACCES-BASD = 4,2, 2,0 ], ! based or not, 
3 4,4, 4,0 ], i associated register. 
BLZ_STRUCT 4 3-9-3-8 }- ! Type of STRUCTURE reference. 
BLZ-REF = otee de ! Indicates whether symbol has REF attribute 


! eee The following only work when BLZ_TYP_SIZ is 3. 


BLZ_VALUE = f 6.9.58 -8 }- ' DST VALUE field. 

BLZ—NAME_CS = ({ 10,0, 8,0 J, [he symbol name is a counted string. 
A dotted reference to this field 

picks up the count, an undotted 

one ederesene the counted string. 

The name a ng itself. An undotted 

reference is the address of the name, 

a dotted one is the Ist character. 


BLZ_NAME_ADDR = (11,0, 8,0], 


! The following fields are in the variable length part of the DST record. 
! They should only be applied once the structure type has been determined 
i or errors could result. 


U_ALLOC_STRUC 
U-ALLOC Tevet 
0 


no of units alloc for BL Oc BLOCKVECTOR) 
CKVECTOR 
GN_EXT Vv 
S176 BL0 Brock 
$I 
$12 


| of units alloc for BLO 

sign ext Hyete for VECTOR 
t size for BLOCK 

ent size for BLOCK VECTOR 

unit size for VECTOR 


SIGN 

UNIT. 

UNIT 

UNIT_ 
TES; 


E_BVEC 
E_vEC 


'¢ 
i You declare a REF to a BLZ DST datum via: 
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BLZ"ACCES"BREG = 
: 
: 
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Se SESCSSSCESS COPPER EERE RRocae 
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lise $30-198e 93:23:65 “S¥sSboaSBScocoue:Sncioectie.nca:1 9 365 


LITERAL 


BLZ_REC_S1Z = 54; ! Each DST record is at most 54 bytes long. 
BLZ RECORD = BLOCKC BLZ_REC_SIZ, BYTE] FIELD( BLZ_FIELD_SET ) 2%; 


te 
i the t zero su pes 
' as define in epoost” MEM, 
i must be within the following 
i range. 
LITERAL 
! Type Zero Sub-Types: 
BLZ_LOWEST = 1, ! Lowest variable type we support. 


BLISS_Z_FORMAL = 1, ! Description of a ROUTINE formal. 
BLISS-2-SYMBOL = 2, ' A BLISS LOCAL symbol. 


BLZ_HIGHEST = 2; ! Highest variable type we support. 
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18-00-1936 33:23:00 “S3SbS0GAdsscocauc: gee ioaciie.rea;1 29° <d9> 


Dummy descriptors 


Whenever a type ce yore. iF CAD item is being accessed by descriptor 
t build a * free storage and put the current address 
in it. The address” of this Samy descr pter is then used by the rest 
of the debugger i n referencing the item. To be able to free up all this 


Space the items are kept on a Linked List. At the end of command processing 
this (ise is walked down and all the space is returned to the free storage 
manager. 


Each entry on the Linked List is a 3 longword vector 


pointer to next item on the Linked List 


pointer to the dummy descriptor 


size in bytes of the dummy descriptor 


The global ws ed DBGSGL_DLISHEAD if nonzero points to the first 
item on the List 


LITERAL 


DLIS_ENTRY = ir ! Size in longwords of entry on List 
DLIS_LINK = 0, ! Pointer to next item on List 
DLIS_POINTER = 1 , ' Pointer to — descriptor 
DLIS_DESCSIZE= 2 ; ! Size in bytes of descriptor 


| Bk ee ears: shi en | 
19-90-1964 33:23:80 “S¥sdboBade toe: Scioacuie.reo;1 29°38 


>; 6928 0 : END OF DBGLIB.REQ 


Library Statistics 


; eocceeses Symbols -<-----" Pages Processing 
3 File Total ioaded Percent Mapped Time 

; .$255$DUA28:(DEBUG.OBJISTRUCDEF .L32;1 32 18 56 ? 00:00.1 
3 COMMAND QUALIFIERS 

s BLISS/LIBRARY=L1B$:DBGLIB.L32/LIST=LIS$:DBGLIB.LIS SRC$:DBGLIB.REQ 


: Run Time: $9: 65-8 9 
; Elapsed Time: 

: Lines/CPU Min: 83 

: Lexemes/CPU-Min: 21240 


sed: 
: Library Brecempiler tan Complete 


005 -BT13A-SE | "MENT CORPORATION 
VAX/VMS V4.0 “AND PROPRIETARY 


008 AH-BT13A-SE 
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